需要VBA代碼：刪除Outlook 2010中的簽名

-1

我有一個關於刪除Outlook 2010中的自動簽名的問題。讓我來解釋一下這個場景。需要VBA代碼：刪除Outlook 2010中的簽名

我在Excel 2010中有一個文檔，用於從程序中篩選刮擦信息。當所有信息都正確地輸入Excel文檔時，會有一個宏按鈕將文檔通過電子郵件發送給所需的參與者。

用戶點擊該按鈕，它會自動在Outlook 2010中打開一封電子郵件，並且我的簽名會自動生成，並位於隨附文檔彈出的電子郵件中。

我需要一個VBA代碼，它將自動從Excel文檔打開的電子郵件中刪除Outlook 2010簽名。您可以通過打開Excel文檔重新創建問題，單擊文件>發送文件>作爲Outlook 2010的附件。

我希望Outlook簽名自動刪除這些電子郵件的原因是因爲我正在使用電子傳真。因此，如果簽名位於電子郵件中，傳真將生成一個不必要的額外頁面。

但是，我不想禁用我的簽名，因爲我真的希望當我發送真正的電子郵件給人時。誰能幫我這個？所有的幫助將非常感激。

謝謝！

馬克

來源

2015-08-14 Mark S

什麼是您的代碼創建消息並顯示它？如果設置了MailItem.Body屬性，簽名將不會被插入：

set App = CreateObject("Outlook.Application") 
set item = App.CreateItem(0) 
item.To = "[email protected]" 
item.Subject = "test" 
item.Body = " " 
set attach = item.Attachments.Add("c:\temp\myspreadsheet.xls") 
item.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

來源

2015-08-14 17:13:50

我張貼的響應作爲應答。它不會讓我發佈該死的答案！感謝您的幫助，我很感激。 –

您可以編輯您的原始端口。爲什麼在調用顯示後（即添加簽名時）不重置Body屬性？ –

我會試試看。我很抱歉，但在VBA方面，我有點新鮮。我沒有編寫代碼，我從同事手中接過文件。你能寫出我應該用在答案中的代碼嗎？使用我的代碼，並寫下它應該如何，如果你不介意。謝謝史密斯。 –

'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

結束子

來源

2015-08-14 21:55:48

需要VBA代碼：刪除Outlook 2010中的簽名

回答

相關問題