调用Outlook发送邮件-附带签名-易勋
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> 源码示例


调用Outlook发送邮件-附带签名

发表时间:2018/10/25 13:06:22 评论(0) 浏览(742)  评论 | 加入收藏 | 复制
   
摘 要:怎么样在调用Outlook的时候附带上签名呢?
正 文:

由于签名一般都有特殊格式,所以在access中直接加入文本签名是不可行的,那么就只能考虑其他方式了:

1、从特定位置找到签名文件,然后用VBA读取后,传递给Outlook对象;

2、在新邮件阶段,读取默认的签名,然后将HTML格式的字符串保存到String变量中,在正文处理完毕后,将body和保存了HTML格式的变量连接起来,赋值给HTMLBody。

这里选择第2中方式来实现,这个方法的前提是在Outlook中设置了新邮件的默认签名

代   码:

Public Function OutlookSendEmail(ToAddress As String, Subject As String, Body As String, Optional Attachment As String = "", Optional CC As String = "", Optional BCC As String = "", Optional EmailPreview As Boolean = False)
    Dim objOutlook As outlook.Application
    Dim objMail As MailItem
    
    Set objOutlook = New outlook.Application
    Set objMail = objOutlook.CreateItem(olMailItem)
    Dim strSignature As String
    
    With objMail
        .Display
        strSignature = .HTMLBody
        .To = ToAddress        '收件人
        .CC = CC      '抄送
        .BCC = BCC      '密件抄送
        .Subject = Subject        '标题
        .Body = Body           '正文
        .HTMLBody = .HTMLBody & vbCrLf & strSignature
        If Attachment <> "" Then .Attachments.Add Attachment  '附件
        If Not EmailPreview Then .Send                        '发送

    End With
    
    MsgBox "发送成功!"

End Function



Access软件网交流QQ群(群号:198465573)
 
 相关文章
Access实现发送邮件功能  【stiven  2013/6/25】
ACCESS发送邮件功能模块[网店新品]  【麥田  2014/2/27】
【Access示例】通过outlookup发送邮件(可以附带附件)  【缪炜  2015/2/20】
用 Access+Outlook 来采集信息  【缪炜  2016/4/2】
调用Outlook发送邮件  【易勋  2018/7/15】
调用Outlook发送邮件-预览邮件  【易勋  2018/10/11】
 
 访客评论
总记录:0篇  页次:0/0 9 1 :
 
 发表评论
评论内容 (必填)

常见问答
技术分类
相关资源
文章搜索
关于作者

易勋

文章分类

文章存档

友情链接