Kod içindeki yazı fontları

[muratgunay48]

Arkadaşlar, sayın hocalarım. @Korhan Ayhan hocamın verdiği mail programı var.

Sub mail()
'updated by Extendoffice 20190815
Dim xOtl As Object
Dim xOtlMail As Object
Dim xStrBody As String
    xStrBody = "MERHABA" & "<br>" & Chr(10) & _
               "<a href=" & "a href=" & "https://www.excel.web.tr/"">TIKLAYINIZ</a> " & "<br>" & Chr(10) & _
               "TEŞEKKÜRLER"
    On Error Resume Next
    Set xOtl = CreateObject("Outlook.Application")
    Set xOtlMail = xOtl.CreateItem(olMailItem)
    With xOtlMail
        .To = "muratgunay48@gmail.com"
        .CC = "muratgunay48@gmail.com" & " ; " & "muratgunay48@gmail.com"
        '.BCC = " Email Address "
        .Subject = Format(Now, "dd.mm.yyyy hh.mm.ss")
        .HTMLBody = .HTMLBody & xStrBody
        .Display
    End With
    Set xOtl = Nothing
    Set xOtlMail = Nothing
End Sub

Outlook açılınca çıkan arayüzde, yazıların boyutunu, bold olmasını, rengini nasıl değiştirebilirim.





Şimdiden teşekkür ederim.
Saygılarımla.

 

[RBozkurt]

Merhaba, kendinize göre düzenleyiniz.

xStrBody = "<font face='Calibri' size='12' color='red' weight='bold'>MERHABA</font>" & "<br>" & Chr(10) & _
"<font face='Calibri' size='12' color='red' weight='bold'><a href=" & "a href=" & "https://www.excel.web.tr/"">TIKLAYINIZ</a></font>" & "<br>" & Chr(10) & _
"<font face='Calibri' size='12' color='red' weight='bold'>TEŞEKKÜRLER</font>"

 

[muratgunay48]

Merhaba, kendinize göre düzenleyiniz.

xStrBody = "<font face='Calibri' size='12' color='red' weight='bold'>MERHABA</font>" & "<br>" & Chr(10) & _
"<font face='Calibri' size='12' color='red' weight='bold'><a href=" & "a href=" & "https://www.excel.web.tr/"">TIKLAYINIZ</a></font>" & "<br>" & Chr(10) & _
"<font face='Calibri' size='12' color='red' weight='bold'>TEŞEKKÜRLER</font>"

Hocam, çok teşekkür ederim. Emeğinize sağlık. Bir şey daha sorabilir miyim?
MERHABA'nın üstüne, yani en başa bir JPEG fotoğraf koymak mümkün mü? Mesela masaüstünde bir dosyada logolar olsa.

 

[RBozkurt]

Merhaba,
Resim yolu ve test.jpg olan yerlerdee gerekli düzenlemeleri yapıp deneyin.

Sub mail()
'updated by Extendoffice 20190815
Dim xOtl As Object
Dim xOtlMail As Object
Dim xStrBody As String
xStrBody = "<img src='cid:test.jpg'>"& "<br>" & Chr(10) & _
"<font face='Calibri' size='12' color='red' weight='bold'>MERHABA</font>" & "<br>" & Chr(10) & _
"<font face='Calibri' size='12' color='red' weight='bold'><a href=" & "a href=" & "https://www.excel.web.tr/"">TIKLAYINIZ</a></font>" & "<br>" & Chr(10) & _
"<font face='Calibri' size='12' color='red' weight='bold'>TEŞEKKÜRLER</font>"

On Error Resume Next
Set xOtl = CreateObject("Outlook.Application")
Set xOtlMail = xOtl.CreateItem(olMailItem)
With xOtlMail
.To = "muratgunay48@gmail.com"
.CC = "muratgunay48@gmail.com" & " ; " & "muratgunay48@gmail.com"
'.BCC = " Email Address "
.Subject = Format(Now, "dd.mm.yyyy hh.mm.ss")
.HTMLBody = xStrBody
.Attachments.Add "C:\Users\masaustu\aaa\test.jpg", olByValue, 0
.Display
End With
Set xOtl = Nothing
Set xOtlMail = Nothing
End Sub

 

[muratgunay48]

Merhaba,
Resim yolu ve test.jpg olan yerlerdee gerekli düzenlemeleri yapıp deneyin.

Sub mail()
'updated by Extendoffice 20190815
Dim xOtl As Object
Dim xOtlMail As Object
Dim xStrBody As String
xStrBody = "<img src='cid:test.jpg'>"& "<br>" & Chr(10) & _
"<font face='Calibri' size='12' color='red' weight='bold'>MERHABA</font>" & "<br>" & Chr(10) & _
"<font face='Calibri' size='12' color='red' weight='bold'><a href=" & "a href=" & "https://www.excel.web.tr/"">TIKLAYINIZ</a></font>" & "<br>" & Chr(10) & _
"<font face='Calibri' size='12' color='red' weight='bold'>TEŞEKKÜRLER</font>"

On Error Resume Next
Set xOtl = CreateObject("Outlook.Application")
Set xOtlMail = xOtl.CreateItem(olMailItem)
With xOtlMail
.To = "muratgunay48@gmail.com"
.CC = "muratgunay48@gmail.com" & " ; " & "muratgunay48@gmail.com"
'.BCC = " Email Address "
.Subject = Format(Now, "dd.mm.yyyy hh.mm.ss")
.HTMLBody = xStrBody
.Attachments.Add "C:\Users\masaustu\aaa\test.jpg", olByValue, 0
.Display
End With
Set xOtl = Nothing
Set xOtlMail = Nothing
End Sub

Hocam, çok ama çok teşekkür ederim. Elinize emeğinize sağlık.

 

[RBozkurt]

Rica ederim kolay gelsin.