- Katılım
- 24 Kasım 2007
- Mesajlar
- 769
- Excel Vers. ve Dili
- Office 365 - Türkçe
- Altın Üyelik Bitiş Tarihi
- 30-01-2024
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.
Aynı HTMLBody'i mail gönderirken kullanıyorum. Sorun olmuyordu. Dosyam ektedir.
Kod:
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
Ekli dosyalar
-
19 KB Görüntüleme: 9