I looking for some book, only send, use smtp(Imports System.Web.mail.SmtpMail) But I rember powerbuilder have sample like you said, you can make it to refence: /******************************************************************* The following e-mail variables are declared as Instance variables: mailSession mSes *******************************************************************/ mailReturnCode mRet mailMessage mMsg[] mailFileDescription mAttachint li_dwattached, li_attachnumber string ls_filename, ls_ret int li_msgs, li_attachments int li_index , li_row, li_attachindexdw_inbox.Reset() dw_inbox.setredraw(false)/**************************************************************** Obtain the list of mail Message IDs in the user's mail Inbox ****************************************************************/mRet = ims_mses.mailGetMessages ( ) ls_Ret = f_mail_error_to_string ( mRet, 'Get Messages:', FALSE ) st_status_bar.text = ' Inbox: ' + ls_ret/**************************************************************** For each message in the user's Inbox: 1. Read the message envelope (recipients, subject, list of attachments). Note that this does not read the message contents or the attachments themselves. 2. For each attachment, see if its file extension is .dwx 3. Add a row to the Inbox DataWindow ****************************************************************/li_msgs = UpperBound(ims_mses.MessageID)For li_index = 1 to li_msgs mRet = ims_mses.mailReadMessage ( ims_mses.MessageID[li_index], mMsg[li_index], & mailEnvelopeOnly!, FALSE ) ls_ret = f_mail_error_to_string ( mRet, 'Read Message Envelope:' , & FALSE ) st_status_bar.text = ' Inbox: Msg ' + & string (li_index, '##0') + ': ' + ls_Ret li_attachments = UpperBound ( mMsg[li_index].AttachmentFile ) li_attachnumber =0 for li_attachindex = 1 to li_attachments ls_filename = mMsg[li_index].AttachmentFile[li_attachindex].FileName if Lower ( Right ( ls_filename, 4 )) = ".psr" then li_dwattached = 1 li_attachnumber = li_attachindex else li_dwattached = 0 end if next // Loop on attachments in current message/*****************************End*******************************/I don't know where find mailSession from Microsoft.net library. Sorry.
But I rember powerbuilder have sample like you said, you can make it to refence:
/*******************************************************************
The following e-mail variables are declared as Instance variables:
mailSession mSes
*******************************************************************/
mailReturnCode mRet
mailMessage mMsg[]
mailFileDescription mAttachint li_dwattached, li_attachnumber
string ls_filename, ls_ret
int li_msgs, li_attachments
int li_index , li_row, li_attachindexdw_inbox.Reset()
dw_inbox.setredraw(false)/****************************************************************
Obtain the list of mail Message IDs in the user's mail Inbox
****************************************************************/mRet = ims_mses.mailGetMessages ( )
ls_Ret = f_mail_error_to_string ( mRet, 'Get Messages:', FALSE )
st_status_bar.text = ' Inbox: ' + ls_ret/****************************************************************
For each message in the user's Inbox:
1. Read the message envelope (recipients, subject, list
of attachments). Note that this does not read the
message contents or the attachments themselves.
2. For each attachment, see if its file extension is .dwx
3. Add a row to the Inbox DataWindow
****************************************************************/li_msgs = UpperBound(ims_mses.MessageID)For li_index = 1 to li_msgs
mRet = ims_mses.mailReadMessage ( ims_mses.MessageID[li_index], mMsg[li_index], &
mailEnvelopeOnly!, FALSE )
ls_ret = f_mail_error_to_string ( mRet, 'Read Message Envelope:' , &
FALSE )
st_status_bar.text = ' Inbox: Msg ' + &
string (li_index, '##0') + ': ' + ls_Ret
li_attachments = UpperBound ( mMsg[li_index].AttachmentFile ) li_attachnumber =0
for li_attachindex = 1 to li_attachments
ls_filename = mMsg[li_index].AttachmentFile[li_attachindex].FileName
if Lower ( Right ( ls_filename, 4 )) = ".psr" then
li_dwattached = 1
li_attachnumber = li_attachindex
else
li_dwattached = 0
end if
next // Loop on attachments in current message/*****************************End*******************************/I don't know where find mailSession from Microsoft.net library.
Sorry.