- Katılım
- 29 Ekim 2006
- Mesajlar
- 33
- Excel Vers. ve Dili
- Excel 2003 İngilizce
Arkadaşlar Microsoft Outlook da üstteki toolbar a bastığımda "Inbox altındaki Mail kalıplar klasöründen şu mesajı seçip yolla" diyebileceğim bir tuş koymak istiyorum, daha önce burada benzer bir soru sorulmuş, ama o yeni mesaj yollamak için şeklinde sorulmuş ve Haluk tarafından cevabı verilmiş ancak o örneği kendi istediğim şekilde uyarlamak istediğimde çalışmıyor bunun nedeni de bendeki mesajın body kısmının çok uzun olması, vbscript içine o uzun yazıyı koymak isteyince yazılanları da kod gibi algılıyor ve hata veriyor, ben de visual basic bilgim hiç olmadığından kendime uyarlayamadım, yardımcı olabiliecek arkadaşlara şimdiden çok teşekkürler..
not: daha önce verilen örnek şu şekilde;
Dim OutApp As Outlook.Application
Dim NewMail As Outlook.MailItem
Set OutApp = New Outlook.Application
Set NewMail = CreateItem(olMailItem)
With NewMail
.To = "raider@hotmail.com"
.Subject = "Deneme"
.Body = "Deneme e-mail'i .... "
.Save
.Display
'.Send
End With
Set NewMail = Nothing
Set OutApp = Nothing
End Sub
Bendeki sorun ise Body kısmındaki "Deneme e-mail'i .... " yazısını uzattığımda ve bi satır indiğimde vb bunu kod olarak algılıyor..
not: daha önce verilen örnek şu şekilde;
Dim OutApp As Outlook.Application
Dim NewMail As Outlook.MailItem
Set OutApp = New Outlook.Application
Set NewMail = CreateItem(olMailItem)
With NewMail
.To = "raider@hotmail.com"
.Subject = "Deneme"
.Body = "Deneme e-mail'i .... "
.Save
.Display
'.Send
End With
Set NewMail = Nothing
Set OutApp = Nothing
End Sub
Bendeki sorun ise Body kısmındaki "Deneme e-mail'i .... " yazısını uzattığımda ve bi satır indiğimde vb bunu kod olarak algılıyor..