Outlook Da Yeni Mesaj Macrosu

[norepinefrin]

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

 

[Haluk]

Sub Test()
    Dim OutApp As Outlook.Application
    Dim NewMail As Outlook.MailItem
    Dim MyBody As String
    
    MyBody = "Deneme e-mail'i .... " & vbCrLf _
            & "Test amacli gonderilmistir." & vbCrLf _
            & "Lutfen cevap vermeyin..."
            
    Set OutApp = New Outlook.Application
    Set NewMail = CreateItem(olMailItem)
    
    
    With NewMail
        .To = "[EMAIL="raider@hotmail.com"]raider@hotmail.com[/EMAIL]"
        .Subject = "Deneme"
        .Body = MyBody
        .Save
        .Display
    '.Send
    End With
    
    Set NewMail = Nothing
    Set OutApp = Nothing
End Sub

 

[turgaykadiroglu]

kodla dosya da ekleyebiliyor muyuz ?

 

[Haluk]

kodla dosya da ekleyebiliyor muyuz ?

Sub Test()
    Dim OutApp As Outlook.Application
    Dim NewMail As Outlook.MailItem
    Dim MyBody As String
 
    MyBody = "Deneme e-mail'i .... " & vbCrLf _
            & "Test amacli gonderilmistir." & vbCrLf _
            & "Lutfen cevap vermeyin..."
 
    Set OutApp = New Outlook.Application
    Set NewMail = CreateItem(olMailItem)
 
 
    With NewMail
        .To = "[EMAIL="raider@hotmail.com"]raider@hotmail.com[/EMAIL]"
        .Subject = "Deneme"
        .Body = MyBody
        .Attachments.Add "[B][COLOR=red]D:\TestFolder\TelefonDefteri.xls[/COLOR][/B]"
        .Save
        .Display
    '.Send
    End With
 
    Set NewMail = Nothing
    Set OutApp = Nothing
End Sub

 

[turgaykadiroglu]

çok teşekürler

 

[norepinefrin]

ben de çok teşekkür ederim, dün yazamadım