附带签名[Access软件网]

所以在access中直接插手文本签名是不行行的。

Optional BCC As String = ""。

时 间 :2018-10-25 13:06:22 作 者 : 易勋 ID：35404都市：上海 摘 要 :怎么样在调用Outlook的时候附带上签名呢？ 正 文 : 由于签名一般都有非凡格局，www.aepnet.com，那么就只能考虑其他方法了： 1、从特定位置找到签名文件，然后将HTML格局的字符串生存到String变量中， 这里选择第2中方法来实现， Subject As String，这个要领的前提是在Outlook中设置了新邮件的默认签名 代 码 : Public Function OutlookSendEmail(ToAddress As String， Optional Attachment As String = ""，www.mydraw.cn，赋值给HTMLBody。

Body As String。

在正文处理惩罚完毕后，将body和生存了HTML格局的变量连接起来。

Optional CC As String = ""，。

读取默认的签名，通报给Outlook工具； 2、在新邮件阶段， Optional EmailPreview As Boolean = False)Dim objOutlook As outlook.ApplicationDim objMail As MailItemSet objOutlook = New outlook.ApplicationSet objMail = objOutlook.CreateItem(olMailItem)Dim strSignature As StringWith objMail.DisplaystrSignature = .HTMLBody.To = ToAddress'收件人.CC = CC'抄送.BCC = BCC'密件抄送.Subject = Subject'标题.Body = Body'正文.HTMLBody = .HTMLBody vbCrLf strSignatureIf Attachment "" Then .Attachments.Add Attachment '附件If Not EmailPreview Then .Send'发送End WithMsgBox "发送乐成！"End Function access源码网店 。

然后用VBA读取后。