2015-10-20 61 views
0

下面的圖像是指示而使用Excel VBA通​​過CDO發送郵件如何隱藏只有發件人地址

enter image description here

我已經通過內容瀏覽電子郵件的界面,但我沒有得到爲此,仍然發現代碼填充這個方法,但沒有成功:(任何解決方案。

Dim iMsg As Object 
Dim iConf As Object 
Dim strBody As String 
Dim Flds As Variant 

Set iMsg = CreateObject("CDO.Message") 
Set iConf = CreateObject("CDO.Configuration") 

    iConf.Load -1 ' CDO Source Defaults 
    Set Flds = iConf.Fields 
     With Flds 
     .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
     .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") _ 
         = "SMTP server name"  
     .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
     .Update 

End With 

strBody = "Hello!" & vbNewLine & vbNewLine & _ 
      "" & vbNewLine & _ 
      "" & vbNewLine & _ 
      "Thanks" 

With iMsg 
    Set .Configuration = iConf 
    .To = "[email protected]" 
    .CC = "" 
    .BCC = "" 
    .From = """Jhon walker"" <[email protected]>" 
    .Subject = "test" 
    .TextBody = "" 
    .send 
End With 

我將感謝任何貢獻。

+1

會是什麼意思? – Rory

+0

我只想隱藏**發件人ID **,而不是**用戶名**作爲附加捕捉中的指示。正如你在許多** outlook郵件中看到的那樣,它只顯示發件人名稱而不是發件人名稱和ID。 –

回答

1

從.to行刪除電子郵件地址並將其放在.bcc行中。我沒有測試過這個。

+0

未解決:)仍顯示**發件人姓名和ID **。 –

+1

謝謝你的貢獻,但我得到了答案,只隱藏發件人ID非常簡單。我只需要在代碼中的名稱和ID之間使用逗號(**,**),然後收件人就不能在他的屏幕上看到我的發件人地址,除了使用此技巧時的發件人名稱'.From =「」「username」「, [email protected]>「'。 :) –

1

沒有測試我認爲你要找的是.SentOnBehalfOfName

+0

否**。SentOnBehalfOfName **是另一種方法。我想從我的** ID **發送電子郵件,但它不應該顯示在屏幕上,除了**名稱**,通常隱藏在** Outlook **中。 –

相關問題