Question

现在已经对我的头撞了一会儿。

创建了一个例程，用于向拥有多个pdf附件的客户发送结束日期的电子邮件。所有这些都有效，但由于某种原因，签名不会像通常那样自动出现。我试图通过设置signature = outMail.body并将其添加到我的标准体中来捕获它，但这似乎并没有起作用。如果我以正常方式打开电子邮件，签名会自动显示。提前谢谢。

**另外＆＃34;身体＆＃34; .body行中使用的只是一个var字符串，其中包含电子邮件正文的文本。

'Initial signature capture
        With outMail
            .Display
        End With

        signature = outMail.body

        With outMail
            .To = firmEmail
            .Subject = ******
            .body = body & vbNewLine & vbNewLine & signature

            Do While continue = True

                'Get attachments
                If reportsByFirm.Cells(row_counter, firmcol) = cFirm Or reportsByFirm.Cells(row_counter, firmcol) = iFirm Then
                    pdfLocation = getPDFs(cFirm, iFirm, row_counter, reportsByFirm, trMaster, trSeparate, trName, reportDate)
                    .Attachments.Add (pdfLocation)
                    row_counter = row_counter + 1

                ElseIf row_counter < lRowReportsByFirm Then
                    row_counter = row_counter + 1

                ElseIf row_counter >= lRowReportsByFirm Then
                    continue = False
                End If
            Loop
            .Display
        End With

Answer 1

我怀疑Signature最初未添加到新的电子邮件中，但Outlook中的后续步骤会将其添加到电子邮件中。因此，您的代码只是创建一个空主体的电子邮件项目。

我已经使用这两个例程从它包含的.html文件中获取Signature，然后将其添加到电子邮件中，以html格式完成，因此我使用.HTMLBody代替{{1 }}

.Body

签名未出现在excel自动电子邮件中

1 个答案: