VBA Kod Yardımı

[Mehmet Sait]

Merhaba,

Ekli kod yardımı ile mail göndermekteyim. Mesaj "Body" kısmındaki font boyutunu ve metin rengini kırmızı olarak nasıl ayarlayabilirim.

Yardımlarınız için teşekkür ederim.

With Yeni_Mail
        .Display
        .To = S1.Range("X3").Value
        .CC = S1.Range("X4").Value
        .BCC = S1.Range("X5").Value
        .Subject = S1.Range("G3").Value & " " & S1.Range("G5").Value
        .Body = S1.Range("X6").Value
        .Attachments.Add Yol & Application.PathSeparator & Dosya_Adi
        .BodyFormat = 2
        .Save
        .Send
    End With

 

[bmutlu966]

Deneyiniz.
Aşağıdaki kodu kendinize göre düzenlersiniz.

 .HTMLBody = "<font size=12 color=red>" & S1.Range("X6").Value & "</font>"

With Yeni_Mail
        .Display
        .To = S1.Range("X3").Value
        .CC = S1.Range("X4").Value
        .BCC = S1.Range("X5").Value
        .Subject = S1.Range("G3").Value & " " & S1.Range("G5").Value
        .HTMLBody = "<font size=12 color=red>" & S1.Range("X6").Value & "</font>"
        .Attachments.Add Yol & Application.PathSeparator & Dosya_Adi
        .Save
        .Send
    End With

 

[Mehmet Sait]

Deneyiniz.
Aşağıdaki kodu kendinize göre düzenlersiniz.

 .HTMLBody = "<font size=12 color=red>" & S1.Range("X6").Value & "</font>"

With Yeni_Mail
        .Display
        .To = S1.Range("X3").Value
        .CC = S1.Range("X4").Value
        .BCC = S1.Range("X5").Value
        .Subject = S1.Range("G3").Value & " " & S1.Range("G5").Value
        .HTMLBody = "<font size=12 color=red>" & S1.Range("X6").Value & "</font>"
        .Attachments.Add Yol & Application.PathSeparator & Dosya_Adi
        .Save
        .Send
    End With

Teşekkür ederim.

 

[Mehmet Sait]

Hocam,

font size=12 8 yapıyorum ama boyut değişmiyor.

 

[bmutlu966]

Aslında değişiyor. Fontu 2 yapıp deneyin? Daha sonra font büyüklüğünü kendinize göre ayarlarsınız.

 

[Mehmet Sait]

Aslında değişiyor. Fontu 2 yapıp deneyin? Daha sonra font büyüklüğünü kendinize göre ayarlarsınız.

Dediğiniz gibi yaptım. Oldu. Teşekkür ederim.