mail gönderirken alt satıra da yazdırmak

[aydgur]

Merhaba ; excelden mail gönderirken , fatura adedinden sonraki bilgileri bir alt satırda nasıl gösterebilirim ?

.Display
.htmlbody = "Merhaba," & Cells(i, "D") & " " & "Fatura Adedi:" & " " & Cells(i, "E") & " ** " & "Fatura Toplamı :" & " " & Cells(i, "F") & Cells(i, "G").Value & .htmlbody
.send

 

[Muzaffer Ali]

Merhaba.

"Fatura Adedi:" & " " & Cells(i, "E") &  vblf &

olmazsa aşağıdaki gibi deneyin

"Fatura Adedi:" & " " & Cells(i, "E") &  chr(13) &

 

[aydgur]

Maalesef 2 şıkta da yan yana yazmaya devam ediyor.

 

[Muzaffer Ali]

Bir de şunu dener misiniz?

"Fatura Adedi:" & " " & Cells(i, "E") &  "<br />" &

 

[aydgur]

Muhteşem oldu, peki bunları gidip maile yapıştırıyor ama aşağıdaki gibi denedim olmadı. İletide yazılar ufak çıkıyor , font ve büyüklüğü nasıl ayarlayabilirim ?
or i = 2 To sonsatir
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.Subject = Cells(i, "A").Value
.To = Cells(i, "B").Value
.CC = Cells(i, "C").Value
.Display
.htmlbody = "Merhaba," & Cells(i, "E") & "<br><br>" & "Fatura Adedi:" & " " & Cells(i, "F") & "<br/>" & " " & "Fatura Toplamı :" & " " & Cells(i, "G") & Cells(i, "Q") & "<br/>" & " " & Cells(i, "H").Value & .htmlbody
htmlbody = Range("A2:H100").Font.Name = "Calibri"
htmlbody = Range("A2:H100").Font.Size = "12"
htmlbody = Range("G2:G100").NumberFormat = "##,##0.00 TL "
.send
End With

Set wrdEdit = Nothing
Set OutMail = Nothing
Set OutApp = Nothing
Next i

 

[bmutlu966]

Aşağıdaki örneği kendinize uyarlayabilirsiniz.
<Strong> Bold yapar
<font color=red> kırmızı yapar

.HTMLBody = "<font style="";font-family: calibri;font-size: 12pt;""/font>" & "<strong>" & s1.Cells(Veri.Row, "C").Value & " Merhaba," & "</strong>" & "<br><br>" & _
                    s2.[B13] & "<br>" & s2.[B14] & "<br>" & s2.[B15] & "<br>" & s2.[B16] & "<br>" & s2.[B17] & "<br>" & "<font color=red>" & s2.[B18] & "</font>" & "  " & "<strong>"

 

[aydgur]

Kodu bu şekilde ekledim ama sanırım yapamadım, yardımcı olmanız mümkün mü ?
sonsatir = Cells(Rows.Count, "C").End(3).Row
For i = 2 To sonsatir
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.Subject = Cells(i, "A").Value
.To = Cells(i, "B").Value
.CC = Cells(i, "C").Value
.Display
.HTMLBody = "Merhaba," & Cells(i, "E") & "<br><br>" & "Fatura Adedi:" & " " & Cells(i, "F") & "<br/>" & " " & "Fatura Toplamı :" & " " & Cells(i, "G") & Cells(i, "Q") & "<br/>" & " " & Cells(i, "H").Value & .HTMLBody

HTMLBody = "<font style="";font-family: calibri;font-size: 12pt;""/font>" & "<strong>"

.send
End With

Set wrdEdit = Nothing
Set OutMail = Nothing
Set OutApp = Nothing
Next i
End Sub

 

[aydgur]

Pardon yanlış yere yazmışım ,tekrar deniyorum.

 

[aydgur]

Yok olmadı , kalın yaptım ama büyüklüğü değiştiremiyorum.

 

[bmutlu966]

Aşağıdaki şekilde dener misiniz?

.HTMLBody = "<FONT SIZE = 5> Merhaba"

 

[Muzaffer Ali]

Kalın font için

[b]Test[/b]

Font boyutu için

[size=6]Test[/size]

 

[aydgur]

Çok teşekkür ederim, hepsini ayarladım satırlara ayırdım fontlarını değiştirdim.
Yallnız fatura toplamını "##,##0.00 TL" bu şekilde yazmak için ne yapabilirm

 

[Korhan Ayhan]

Format komutunu araştırınız.

 

[aydgur]

Maalesef beceremedim.
Merhaba, sizden rica etsem aşağıdaki dizide TL yazacak olan tutar formatını gösterebilir isiniz ?.Display
.htmlbody = "<font style="";font-family: calibri;;font-size: 12pt;""/font>" & "<strong>" & "<FONT SIZE = 4>" & "Merhaba," & Cells(i, "E") & "<br><br>" & "Firmanız:" & " " & Cells(i, "D") & "<br><br>" & "Fatura Adedi:" & " " & Cells(i, "F") & "<br><br>" & "Fatura Toplamı :" & " " & Cells(i, "G") & "<br><br>" & "Vergi Numaranız :" & Cells(i, "H").Value & .htmlbody

Yani mail gövdesine ##.###,00 TL olarak gözüksün

 

[Muzaffer Ali]

Aşağıdaki gibi yapabilirsiniz.

formatnumber(cells(i,"G"),2) & " TL"

 

[aydgur]

Çok teşekkür ederim.

 

[Korhan Ayhan]

Ek olarak eğer hücrede bulunan veriniz para birimi biçiminde ise aşağıdaki gibi kullanabilirsiniz.

Cells(i, "G").Text


Format ile alternatif;

Format(Cells(i, "G"), "#,##0.00 TL")