Outlook mesajına dosya yolu hyperlink vermek

[demirtas]

Excel içinden makro kullanarak outlook ile mail gönderdiğimizde mesaj kısmında herhangi bir dosya yoluna makro ile nasıl link verebiliriz ki; kişi maili aldığında o linke tıklayacak ve istediğimiz dosyaya ulaşacak..

 

[Recep İpek]

Aşağıdaki kodları kullanabilirsiniz.

[COLOR=blue]Sub[/COLOR] OutlookMailGönder[COLOR=blue]()[/COLOR]
    [COLOR=blue]Dim[/COLOR] OutApp [COLOR=blue]As[/COLOR] [COLOR=black]Object[/COLOR]
    [COLOR=blue]Dim[/COLOR] OutMail [COLOR=blue]As[/COLOR] Object
    [COLOR=blue]Dim [/COLOR]MsgBody [COLOR=blue]As[/COLOR] String
    On [COLOR=blue]Error[/COLOR] Resume [COLOR=blue]Next[/COLOR]
    [COLOR=blue]Set[/COLOR] OutApp = [COLOR=blue]CreateObject[/COLOR]("Outlook.Application")
    OutApp.Session.[COLOR=blue]Logon[/COLOR]
   [COLOR=blue]Set[/COLOR] OutMail = OutApp.CreateItem(0)
    '****************************************************
    MsgBody = "Merhaba <br><br><br>" & _
              "<b>27/10/2007</b> tarihli g&#252;nl&#252;k sat&#305;&#351; raporuna a&#351;a&#287;&#305;daki linkten ula&#351;abilirsiniz.<br> <br><br>" & _
              "[COLOR=blue]Buraya <[/COLOR][COLOR=blue]A HREF=""C:\Deneme\deneme.xls""><b>T&#305;klay&#305;n&#305;z...</A>[/COLOR]</b><br><br><br>" & _
              "&#304;yi &#199;al&#305;&#351;malar."
    '****************************************************
   [COLOR=blue]With[/COLOR] OutMail
        .To = [EMAIL="xxx@yyy.com"][COLOR=red]xxx@yyy.com[/COLOR][/EMAIL]
        .CC = ""
        .BCC = ""
        .Subject = "G&#252;nl&#252;k Sat&#305;&#351; Raporu"
        .HTMLBody = MsgBody
        '.Attachments.Add ("C:\test.txt")
        .Display
        '.Send
    [COLOR=blue]End With[/COLOR]
    On [COLOR=blue]Error[/COLOR] GoTo [COLOR=blue]0[/COLOR]
    Set OutMail = [COLOR=blue]Nothing[/COLOR]
    Set OutApp = [COLOR=blue]Nothing[/COLOR]
[COLOR=blue]End Sub[/COLOR]

 

[demirtas]

Cevap için teşekkür ederim..

Peki, içinde bulunduğum dosyanın linkini göndermek istediğimde nasıl bir yol izlemeliyim?

Nitekim, 'activeworkbook.path ve activeworkbook.name' kullanarak dosya yolunu belirtmeye çalıştım ama zannedersem htmlbody olduğu için işe yaramıyor

Yardımcı olabilirseniz sevinirim..

 

[Recep İpek]

Kodları aşağıdaki gibi değiştiriniz.

Sub OutlookMailGönder()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim MsgBody, dosya As String
    On Error Resume Next
    dosya = Application.ThisWorkbook.FullName
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
    '****************************************************
    MsgBody = "Merhaba <br><br><br>" & _
              "<b>27/10/2007</b> tarihli g&#252;nl&#252;k sat&#305;&#351; raporuna a&#351;a&#287;&#305;daki linkten ula&#351;abilirsiniz.<br> <br><br>" & _
              "Buraya <A HREF=" & "'" & dosya & "'" & "><b>T&#305;klay&#305;n&#305;z...</A></b><br><br><br>" & _
              "&#304;yi &#199;al&#305;&#351;malar."
    '****************************************************
   With OutMail
        .To = "[EMAIL="xxx@yyy.com"]xxx@yyy.com[/EMAIL]"
        .CC = ""
        .BCC = ""
        .Subject = "G&#252;nl&#252;k Sat&#305;&#351; Raporu"
        .HTMLBody = MsgBody
        '.Attachments.Add ("C:\test.txt")
        .Display
        '.Send
    End With
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

 

[demirtas]

Sn. Ripek

Gerçekten süper olmuş. Kaç zamandır bu şekilde mail göndermenin yolunu arıyordum

Teşekkürler..

 

[ermanusta]

Recep bey,

aşağıdaki makro içerisine html kodlarını nasıl ekleyebiliriz?
acaba bir bilginiz varmı bu konuda ?

elimde bana mail ile gelen bir html kodu mevcut, bunuda yazıya iliştiriyorum bakabilirseniz sevinirim.
ekteki dosyanın formatı .html dir yani bir tarayıcıda yada txt dosyası olarak açabilirsiniz. ancak yükleyebilmek için uzantısını .rar olarak değiştirmek zorunda kaldım bilginize.

yapmak istediğim ekteki dosya içerisindeki html kodlarını makro içerisine gömmek ve mail gönderirken bu html formatının gitmesini sağlamak...

Kodları aşağıdaki gibi değiştiriniz.

Sub OutlookMailGönder()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim MsgBody, dosya As String
    On Error Resume Next
    dosya = Application.ThisWorkbook.FullName
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
    '****************************************************
    MsgBody = "Merhaba <br><br><br>" & _
              "<b>27/10/2007</b> tarihli günlük satış raporuna aşağıdaki linkten ulaşabilirsiniz.<br> <br><br>" & _
              "Buraya <A HREF=" & "'" & dosya & "'" & "><b>Tıklayınız...</A></b><br><br><br>" & _
              "İyi Çalışmalar."
    '****************************************************
   With OutMail
        .To = "[EMAIL="xxx@yyy.com"]xxx@yyy.com[/EMAIL]"
        .CC = ""
        .BCC = ""
        .Subject = "Günlük Satış Raporu"
        .HTMLBody = MsgBody
        '.Attachments.Add ("C:\test.txt")
        .Display
        '.Send
    End With
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub