PB通过OUTLOK发送邮件

最新推荐文章于 2021-11-23 16:56:51 发布

tonypb

最新推荐文章于 2021-11-23 16:56:51 发布

阅读量721

点赞数

分类专栏： pb 文章标签： subroutine string structure session function object

pb 专栏收录该内容

3 篇文章

订阅专栏

本文介绍了一个使用VBA编写的邮件发送函数f_mymail，该函数接受收件人邮箱地址、邮件主题及正文作为参数，并通过创建邮件会话、登录、填充邮件信息等步骤实现邮件的发送。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

//函数

global   type   f_mymail   from   function_object
end   type

forward   prototypes
global   subroutine   f_mymail   (string   mailto,   string   mailsubject,   string   mailbody)
end   prototypes

global   subroutine   f_mymail   (string   mailto,   string   mailsubject,   string   mailbody);mailSession   mSes
mailReturnCode   mRet
mailMessage   mMsg
//   Create   a   mail   session
mSes   =   create   mailSession
//   Log   on   to   the   session
mRet   =   mSes.mailLogon(mailNewSession!)
IF   mRet   <>   mailReturnSuccess!   THEN
          MessageBox("邮件",   '失败！')
          RETURN
END   IF
//   Populate   the   mailMessage   structure
mMsg.Subject   =   mailsubject
mMsg.NoteText   =   mailbody
mMsg.Recipient[1].name   =   mailto
//   Send   the   mail
mRet   =   mSes.mailSend(mMsg)
IF   mRet   <>   mailReturnSuccess!   THEN
          MessageBox("发送",   '发送不成功！')
          RETURN
END   IF
mSes.mailLogoff()
DESTROY   mSes
end   subroutine