时间戳

首页 > 解决方案 > 使用 .SendObject 发送电子邮件在开头添加额外的换行符

vba - 使用 .SendObject 发送电子邮件在开头添加额外的换行符

问题描述

当我在带有在发送前编辑消息的选项的报表上使用 DoCmd.SendObject 时，它总是在消息的开头包含一个额外的换行符。有什么办法可以去掉这条线？

我已经参考 Stack Overflow 多年了，通过我的学士和硕士学位，现在在专业领域，但我刚刚注册了一个帐户，这是我的第一篇文章。超级兴奋终于合作了:)

无论如何，这是我一直在使用的代码：

Dim sExistingReportName As String
Dim sAttachmentName As String
Dim accEmail As String
Dim accName As String

DoCmd.Requery rptAccountingRep
DoCmd.OpenReport "rptAccountingRep", acViewReport, "", "", acHidden
accEmail = [Reports]![rptAccountingRep]![strEMail]
accName = [Reports]![rptAccountingRep]![First Name]

sExistingReportName = "rptClaimFormToPrint_Invoice"
sAttachmentName = "Claim " & [Reports]![rptClaimFormToPrint_Invoice]![tblClaimForm_strClaim]

Reports(sExistingReportName).Caption = sAttachmentName

DoCmd.SendObject acReport, "rptClaimFormToPrint_Invoice", "PDFFormat(*.pdf)", accEmail, "", "", "Claim to Process -" & [Reports]![rptClaimFormToPrint_Invoice]![tblClaimForm_strClaim], "Hi " & accName & "," & vbNewLine & "Attached is a new claim to process.  Let me know if you have any questions!", True, ""
DoCmd.Close acReport, "rptAccountingRep"

标签： vbaemailms-accessline-breaks

解决方案

推荐阅读