Outlook htmlbody düzenlemek

[mumillica]

Merhaba
Mutabakat için otomatik mail gönderme yapacağım fakat içeriğin biçimlendirmesini veriye göre yapmak istiyorum
Kodları inceledim fakat boş mail yada hata aldım
Aşağıda makro kodları yer alıyor cells(i,FGH) olan verilerin rengini,yazı tipini filan değiştirmek istiyorum

Sub mail()
sonsatir = Cells(Rows.Count, "A").End(3).Row
For i = 2 To sonsatir
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.Subject = "BS Mutabakatı"
.To = Cells(i, "H").Value
.Display
.htmlbody = "Sn " & Cells(i, "B").Value & "<br><br>" & "<br><br>" & "30.06.2018 tarihi itibariyle BS mutabakat rakamı ve fatura adedi aşağıda listelenmiştir." & "<br><br>" & "<br><br>" & "Mutabık kaldığınızı veya mutabık kalmadığınızı maile dönüş yaparak bildirmenizi rica ederim." & "<br><br>" & "7 gün içerisinde dönüş yapılmaması halinde mutabık kaldığınız kabul edilecektir." & "<br><br>" & "<br><br>" & "<b><u>FATURA ADEDİ</u></b>" & "<br><br>" & Cells(i, "F").Value & "<br><br>" & "<br><br>" & "<b><u>FATURA TUTARI</u></b>" & "<br><br>" & Cells(i, "G").Value & "<br><br>" & "<br><br>" & .htmlbody
.send
End With
Set wrdEdit = Nothing
Set OutMail = Nothing
Set OutApp = Nothing
Next i
End Sub

 

[turist]

Kendi örnek Excel dosyanızı foruma eklerseniz, bu kodu uyarlamak daha kolay olur.

Örnek dosyanızı; GOOGLE DRIVE,YANDEX DISK,DOSYA.TC, DOSYAUPLOAD.COM,WETRANSFER.COM gibi dosya paylaşım sitelerine ekleyip linkini burada bildiriniz.

 

[mumillica]

Linkte bulabilirsiniz
http://s7.dosya.tc/server8/r1bxst/BS.rar.html

 

[turist]

Önce dosyanızdaki H2 hücresine kendi "e-mail" bilginizi girerek deneyin.
Hata almıyorsanız, çalışıyorsa; bundan sonra ne şekilde değişiklikler gerekiyorsa , buradan bildirin.

 

[mumillica]

benim amacım mailin içeriğinde, hücrelerden gelen verilerin rengini, puntosunu filan değiştirebilmek
normal yazı kısımlarını <b><u> kodları ile kalın altı çizgili yapabildim
mail adresi eklenmiş hali ektedir
http://s7.dosya.tc/server8/7t9xid/BS.rar.html

 

[turist]

Bu linkten
HTML kodlaması ile bilgi edinebilirsiniz, kendinize göre denemeler yapın, çözüm bulamazsanız yine forumda paylaşın.

 

[mancubus]

örnek

    MailHtmlBody = "<font size=""3"" face=""Calibri"">Merhaba, <br><br>" & _
        Format(Date, "dd/mm/yyyy") & " tarihli toplantıda alınan kararlar (*) ekteki dosyada sunulmuştur.<br><br>" & _
        "Alınan kararlar doğrultusunda ivedilikle harekete geçilerek (**) gelişmeler için <font color=blue>CevapVer@bizimsirket.com.tr</font> mail adresine bilgi verilmelidir.<br><br>" & _
        "Bu mailden önce <u>tamamlanmış bulunan</u> ancak ekteki dosyada <u>tamamlanmamış</u> olarak görünen maddelerin güncellenebilmesi için bilgi verilmelidir.<br><br>" & _
        "İyi çalışmalar.<br><br><br>(*) <font color=red>İlgi tarihli YKK dokümanı</font><br>" & _
        "(**) <font color=red>Uygulama Talimatnamesi</font><br>Belgeye <font color=blue>CTRL</font> tuşu basılı iken " & _
        "<A HREF=http://sirketnet/_layouts/15/Web/Belgeler/BelgelerDisplayPage.aspx?arsiv=false&itemID=2018045>BURAYA</A> tıklanarak ulaşılabilir.</font>"

 

[mumillica]

Teşekkürler