在 Outlook 2010 中删除签名
Deleting Signature In Outlook 2010
如何删除 Outlook 2010 中的自动签名?
我有一份 Excel 2010 年的文档。有一个用于通过电子邮件发送文档的按钮。它会在 Outlook 2010 中打开一封电子邮件并生成我的签名。
我需要从这封电子邮件中删除 Outlook 2010 签名。
我希望从这些电子邮件中删除签名,因为我使用的是电子传真。如果签名在电子邮件中,传真将生成一个额外的页面。
我不想禁用我的签名,因为我想要它用于真实电子邮件。
创建并显示消息的代码是什么?如果设置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
'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
结束子
如何删除 Outlook 2010 中的自动签名?
我有一份 Excel 2010 年的文档。有一个用于通过电子邮件发送文档的按钮。它会在 Outlook 2010 中打开一封电子邮件并生成我的签名。
我需要从这封电子邮件中删除 Outlook 2010 签名。
我希望从这些电子邮件中删除签名,因为我使用的是电子传真。如果签名在电子邮件中,传真将生成一个额外的页面。
我不想禁用我的签名,因为我想要它用于真实电子邮件。
创建并显示消息的代码是什么?如果设置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
'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
结束子