Hyperlink
07.06.2019 10:47:51
Norbert
Hallo ihr Profis, ;)
ich möchte gerne aus Excel per Button ein EMail generieren, in der ich einen Hyperlink einfüge der auf eine andere Exceldatei verweist.
Aber da klappt nicht.
Könnt ihr mir bitte Helfen?
Hier mein Code:
Option Explicit
Private StatusCalc As Long
Private Sub cbEmail_Click()
Dim appOutlook As Outlook.Application
Dim MailItem As Outlook.MailItem
Set appOutlook = CreateObject("Outlook.Application")
Set MailItem = appOutlook.CreateItem(0)
With MailItem
.To = "freund@home.de"
.Subject = "Link"
.Body = "Servus," & vbCrLf & vbCrLf & "hier der Link:" & vbCrLf & vbCrLf & "Schöne Grüße von _
mir"
.HTMLBody = "N:\Ordner1\meins\benötigte Excel.xlsx"
'Email Senden
'.Send
.Display
End With
End Sub
Danke euch
Grüße
Norbert
Anzeige