Yazı Tipi ve Rengi

[vivident]

Merhaba

Makro ile mail gönderiyorum. Lakin alıcıların ekranlarında yazı boyutları, tipleri ve renklerinin benim istediğim gibi olmasını istiyorum.
Bu işlemi nasıl yapabilirim

 .Body = "" & ComboBox12 & " Tarafından" & vbLf & _
                "Lup'e " & TextBox11 & ". Nolu Problemin Girişi Yapılmıştır" & vbLf & _
               "" & vbLf & _
                "Problem : " & TextBox4 & "" & vbLf & _
                "" & vbLf & _
                "İyi günler dileriz"

XXXX Tarafından
Lup'e 101 Nolu Problemin Girişi Yapılmıştır

Problem : Kapı Bozuk

İyi günler dileriz

 

[vivident]

Yaptım. HTML body ile yapılabiliyormuş. Yalnız şu font size kısmını yaa ben beceremedim, yada bir şey var.

size=2 olmasına rağmen giden maili font büyüklüğü 10
size=8 yaptığımda mail içindeki font boyutu 36'ya çıkıyor. Nasıl oluyor bu iş anlayamadım

.HTMLBody = "<p> <font size=2 color=black face=Tahoma>" & _
               "" & ComboBox12 & " Tarafından" & "<br>" & _
                "Lup'e " & TextBox11 & ". Nolu Problemin Girişi Yapılmıştır" & _
                "</font> </p>" & _
                "<p> <font size=2 color=red face=Tahoma>" & _
                "Problem : '" & TextBox4 & "'" & _
                "</font> </p>" & _
                "<p> <font size=1 color=blue face=Tahoma>" & _
                "İyi günler dileriz" & _
                "</font> </p>"

 

[Korhan Ayhan]

Deneyiniz.

Sub TEST()
    Set Mail = CreateObject("Outlook.Application")
    Set Yeni_Mail = Mail.CreateItem(0)
    
    Mail_Text = "<p style='color:rgb(255,0,0);font-family:calibri;font-size:14.5'>" & "Vivident Tarafından" & "</font></p>"
    Mail_Text = Mail_Text & "<p style='color:rgb(255,0,0);font-family:calibri;font-size:14.5'>" & "Lup'e " & "12345" & ". Nolu Problemin Girişi Yapılmıştır." & "</font><p></p>"
    Mail_Text = Mail_Text & "<p style='color:rgb(0,0,255);font-family:calibri;font-size:37'>" & "Problem : " & "Kapı Kolu Kırık" & "</font><p></p>"
    Mail_Text = Mail_Text & "<p style='color:rgb(50,50,50);font-family:calibri;font-size:14.5'>" & "İyi günler dileriz." & "</p>"
    
    With Yeni_Mail
        .Subject = "Günlük Arıza Raporu"
        .To = "test@test.com"
        .HTMLBody = Mail_Text
        .Display
    End With
End Sub

 

[vivident]

Hocam alt satırlara geçmeyi <p> sağlıyor diye biliyorum
Aşağıdaki satırda son </p> silmeme rağmen alt satıra geçiyor

Mail_Text = "<p style='color:rgb(255,0,0);font-family:calibri;font-size:14.5'>" & "Vivident Tarafından" & "</font></p>"

 

[vivident]

Aşağıdaki örnek gibi
-------------------------
Vivident tarafından
Lup'e 12345. Nolu Problemin Girişi Yapılmıştır

Problem : Kapı Kolu Kırık

İyi günler dileriz
-------------------------

 

[vivident]

Sorunu çözdüm, teşekkür ederim korhan bey