时间:-10-25 13:06:22
作者:摘要:怎么样在调用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交流群(群号:39785885)
Access源码网店