Vba 使用.SendObject发送电子邮件会在开头添加额外的换行符_Vba_Email_Ms Access_Line Breaks

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

vba email ms-access

Vba 使用.SendObject发送电子邮件会在开头添加额外的换行符,vba,email,ms-access,line-breaks,Vba,Email,Ms Access,Line Breaks,当我在报告上使用DoCmd.SendObject并在发送之前编辑消息时，它总是在消息的最开始处包含一个额外的换行符。有没有办法把这条线去掉我已经读了很多年了，通过我的学士和硕士学位，现在在专业领域，但我刚刚做了一个账户，这是我的第一篇文章。超级兴奋终于合作了：）无论如何，以下是我一直在使用的代码： Dim sExistingReportName As String Dim sAttachmentName As String Dim accEmail As String Dim accName

当我在报告上使用DoCmd.SendObject并在发送之前编辑消息时，它总是在消息的最开始处包含一个额外的换行符。有没有办法把这条线去掉

我已经读了很多年了，通过我的学士和硕士学位，现在在专业领域，但我刚刚做了一个账户，这是我的第一篇文章。超级兴奋终于合作了：）

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

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"

所以它就在

Hi

之前？正确。消息正文以换行符开头，然后在下一行执行“Hi[whomever]，”。您很可能会按照

SendObject

的意愿执行您可以

OutputTo

，然后使用另一个邮件选项，如

Outlook.MailItem

或

CDO.Message

，并手动将保存的对象附加到电子邮件。非常好的建议，谢谢！