在 Outlook 2010 中删除签名答案

【问题标题】：Deleting Signature In Outlook 2010在 Outlook 2010 中删除签名
【发布时间】：2015-11-07 17:10:39
【问题描述】：

如何删除 Outlook 2010 中的自动签名？

我在 Excel 2010 中有一个文档。有一个用于通过电子邮件发送文档的按钮。它会在 Outlook 2010 中打开一封电子邮件并生成我的签名。

我需要从这封电子邮件中删除 Outlook 2010 签名。

我想从这些电子邮件中删除签名，因为我使用的是电子传真。如果签名在电子邮件中，传真将生成一个额外的页面。

我不想禁用我的签名，因为我希望它用于真正的电子邮件。

【问题讨论】：

标签： excel vba email outlook outlook-2010

【解决方案1】：

创建消息并显示它的代码是什么？如果设置 MailItem.Body 属性，则不会插入签名：

set App = CreateObject("Outlook.Application")
set item = App.CreateItem(0)
item.To = "somebody@domain.demo"
item.Subject = "test"
item.Body = " "
set attach = item.Attachments.Add("c:\temp\myspreadsheet.xls")
item.Display

要重置上面代码中的正文，请尝试以下更改（在调用 Display 后将正文设置为空字符串）。

With OutMail
        .To = FaxNum2
        .CC = ""
         .BCC = ""
        .Subject = accno & " / Name Form"
        .Attachments.Add Destwb.FullName
        'You can add other files also like this
        '.Attachments.Add ("C:\test.txt")
        '.Send
        .Display
        .Body = "" 
    End With

【讨论】：

我将回复发布为答案。它不会让我发布该死的答案！感谢您迄今为止的帮助，我很感激。
您可以编辑您的原始端口。为什么不调用 Display 后（即添加签名时）重置 Body 属性？
我会试试的。对不起，我对 VBA 有点陌生。我没有编写代码，我从同事那里接管了文档。你能写出我应该在答案中使用的代码吗？如果您不介意，请使用我的代码并将其编写为应有的样子。谢谢铁匠铺。
谢谢！！易于阅读和干净的代码。对此，我真的非常感激！我很高兴能对此进行测试?
工作就像一个魅力。谢谢你，德米特里，你很聪明。

【解决方案2】：

'Save the new workbook/Mail it/Delete it
TempFilePath = Environ$("temp") & "\"
TempFileName = "" & Sourcewb.Name & " " _
             & Format(Now, "dd-mmm-yy")
'TempFileName = "" & Sourcewb.Name
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

With Destwb
    .SaveAs TempFilePath & TempFileName & FileExtStr, _
            FileFormat:=FileFormatNum
    On Error Resume Next
    With OutMail
        .To = FaxNum2
        .CC = ""
         .BCC = ""
        .Subject = accno & " / Name Form"
        '.Body = Embody
        .Attachments.Add Destwb.FullName
        'You can add other files also like this
        '.Attachments.Add ("C:\test.txt")
        '.Send
        .Display
    End With
    On Error GoTo 0
    '.Close savechanges:=False
End With

'Delete the file you have send

'Kill TempFilePath & TempFileName & FileExtStr

Set OutMail = Nothing
Set OutApp = Nothing
' MsgBox ("Please click OK to close the tool!")
'  Application.DisplayAlerts = False
'ThisWorkbook.Close savechanges:=False
 ActiveWorkbook.Close False
 'ActiveWorkbook.Close False
 'Application.Quit
 Call ClrForms

结束子

【讨论】：