电子邮件是否可以从PowerBuilder 12.5发送而无需外部应用程序?

时间:2018-03-08 16:31:17

标签: html email powerbuilder

是否可以在没有外部应用程序的情况下使用PowerBuilder 12.5发送电子邮件?这些将来自mickey.mouse@gmail.com到donald.duck@yahoo.co.uk,主题和MS Word风格,如此丰富的文字或HTML风格。

系统在Windows上运行,但要么是7或10 ......

非常感谢所有人的帮助。

3 个答案:

答案 0 :(得分:4)

试试这个例子。它使用SMTP直接与邮件服务器通信。上面的MAPI示例与Outlook交互,这违反了您的无外部程序规则。

http://www.topwizprogramming.com/pbnismtp.html

答案 1 :(得分:2)

以下是使用mailSession对象的Powerbuilder 11.5的一个示例。您使用的邮件软件必须符合MAPI。

mailSession             mSes
mailReturnCode          mRet
mailMessage             mMsg
mailFileDescription     mAttach

// Create a mail session
mSes = create mailSession

// Log on to the session
mRet = mSes.mailLogon()
IF mRet <> mailReturnSuccess! THEN
    MessageBox("Mail", "Mail error")
    RETURN
END IF

// Populate the mailMessage structure
mMsg.Subject = "My own subject"
mMsg.Recipient[1].name = "recipient@domain.com"
mMsg.Notetext = ''
mAttach.FileType = mailAttach!
mAttach.PathName = gs_intrastat_rep + "\" + ls_filename[ll_i]
mAttach.FileName =  gs_intrastat_rep + "\" + ls_filename[ll_i]
mAttach.Position = len(mMsg.notetext) - 1       
mMsg.AttachmentFile[1] = mAttach

// Send the mail
mRet = mSes.mailSend(mMsg)
IF mRet = mailReturnSuccess! THEN
    MessageBox("Mail Sent", "Message sent successfully" )
ELSE
    MessageBox("Mail not Sent", "Impossible to send mail" )
    RETURN
END IF

mSes.mailLogoff()
DESTROY mSes

答案 2 :(得分:1)

通过使用以下术语在线搜索,您可以找到很多很多示例:&#39; email powerbuilder&#39;。一个不错的选择是来自topwizprogramming.com的Roland Smith的免费代码示例(寻找电子邮件smpt)。