Macro ile mail Gönderen

[sadece_erhan]

Merhaba, sağdan soldan uydurarak oluşturduğum macro aşağıdaki bilgilere göre mail gönderebiliyor, bilgi, konu gibi alanları doldurabiliyorum ancak exchange hesabımda iki mail adresi tanımlı olduğu için göderen kısmınıda önceden tanımlamam gerekiyor, aşağıya hangi kodu eklemeliyim

 On Error Resume Next
    With OutMail
        .To = "alici@mail.adresi"
        .CC = ""
        .BCC = ""
        .Subject = "This is the Subject line"
        .HTMLBody = RangetoHTML(rng)
        .Display   'or use .Send
    End With
    On Error GoTo 0

 

[sadece_erhan]

Yukarıdaki kod a

 .SentOnBehalfOfName = "deneme@gonderen.mail"

ekleyerek hallettim. aşağıdaki gibi oldu .

Hepinize tşkler.

On Error Resume Next
    With OutMail
        .SentOnBehalfOfName = "deneme@gonderen.mail"
        .To = "alici@mail.adresi
        .CC = ""
        .BCC = ""
        .Subject = "This is the Subject line"
        .HTMLBody = RangetoHTML(rng)
        .Display   'or use .Send
    End With
    On Error GoTo 0