HTMLBody

[vivident]

Merhaba ekteki dosyada Outlook takvime belli tarih ve saatte randevu atıyorum. Lakin randevunun içeriğini de istediğim font ile yazılmasını istiyorum. Bu yüzden HTMLBody kullanıyorum. Lakin HTMLBody olarak çalıştıramadım.

Aynı HTMLBody'i mail gönderirken kullanıyorum. Sorun olmuyordu. Dosyam ektedir.

Private Sub CommandButton1_Click()
Dim MSOutlook As Object, Takvim As Object
    Set MSOutlook = CreateObject("Outlook.Application")
    Set Takvim = MSOutlook.CreateItem(1)
    
Mail_Text = "<p style='color:rgb(238,0,0);font-family:Tahoma;font-size:11'>" & "(Bu İleti Acil Seviyede ve Yüksek Önem Düzeyine Sahiptir)" & "</p></p>"
Mail_Text = Mail_Text & "<p style='color:rgb(50,50,50);font-family:Tahoma;font-size:13'>AAA Tarafından" & "<br>" & _
    "Adınıza Ait Problem Girişi Yapılmıştır. Problem İle İlgili Ayrıntı Aşağıdaki Gibidir" & "</font></p>"
    
    With Takvim
        '.Start = CDate(TextBox1.Text) + TimeValue("09:00:00") 'Başlama saati
        .Start = CDate(TextBox1.Text) + TimeValue(ComboBox1.Text) 'Başlama saati
        .End = .Start + TimeValue("00:00:00") 'Bitiş saati
        .Subject = "xx nolu problem"
        .Location = ""
        '.HTMLBody = Mail_Text
        '.Body = "xx nolu problemi hatırlamak istemiştiniz"
        .BusyStatus = olBusy
        .ReminderMinutesBeforeStart = 120 'Anımsatıcı kaç dakika sonra haber vereyim
        .ReminderSet = True
        .Save
    End With
    Set Takvim = Nothing
    Set MSOutlook = Nothing
End Su

 

[antonio]

Merhaba,
Outlook programıma tanımlı bir hesap ekli olmadığı için denemedim ancak,
.Subject = ... Şeklinde başlayan satırı;

.Subject = "[COLOR="Red"][B]<p style='color:rgb(50,50,50);font-family:Tahoma;font-size:13'>[/B][/COLOR] xx nolu problem[COLOR="Red"][B]</font>[/B][/COLOR]</p> "

Şeklinde değiştirirseniz sonuç alacaağınızı düşünüyorum.
Eğer çalışıyorsa, aynı mantıkla .Body kısmını da düzenleyebilirsiniz.

 

[vivident]

Subject başlık olduğu için kodları kullanmama gerek yok.

Bu kodları .Body kısımında kullandım, lakin yazı tipi, boyut ve renkleri değişmiyor, tam aksine yazılan kod (<p style='color:rgb(50,50,50);font-family:Tahoma;font-size:13'>.....vs) şeklinde yazı olarak görünüyor

 

[vivident]

Konu günceldir

 

[Haluk]

Yukarıda size önerilen ifadeyi çift tırnak içinde deneyebilir misiniz?

Yani;

""[COLOR=Red][B]<p style='color:rgb(50,50,50);font-family:Tahoma;font-size:13'>[/B][/COLOR] xx nolu problem[COLOR=Red][B]</font>[/B][/COLOR]</p> ""

Veya;

"'[COLOR=Red][B]<p style='color:rgb(50,50,50);font-family:Tahoma;font-size:13'>[/B][/COLOR] xx nolu problem[COLOR=Red][B]</font>[/B][/COLOR]</p> '"

 

[vivident]

Sayın Haluk bey

ilk kodda (çift tırnaklı) direk hata verdi,
ikinci kodda (tek tırnaklı) değişik olmadı

Karakter ve yazı boyutu değişmedi.
Kodları .body= kısmına yapıştırdım ve denedim .HTMLBody = kısmında denediğimde direk hata veriyor zaten