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
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