13.09.2018, 06:11
Guten Morgen liebes Forum,
ich habe die letzen Jahre folgendens Makro unter XL 2013 und Windows 7 benutzt, um von der aktuellen XL-Datei einen Link zu versenen:
Sub Link_senden()
On Error Resume Next
Dim Name As String
Name = ActiveWorkbook.FullName
Dim App, Itm
Set App = CreateObject("Outlook.Application")
Set Itm = App.CreateItem(0)
With Itm
.Subject = Name '"Link und Hyperlink senden"
.To = ""
.Body = "ich habe obige Datei als Verknüpfung angehängt "
.Attachments.Add Name, 4, , ""
.Display ' This property is used when you want the user to see email and
' manually send. Then comment out rest of code except "End With" statement
' .send
End With
Set App = Nothing
Set Itm = Nothing
End Sub
Nun haben wir Windows 10 und die Kombination mit XL 2013 fünktioniert nict mehr richtig.
XL hängt die Verknüpfung nun an, statt wie früher einen link zu versenden.
Wer kann mir dabeihelfen, dass wieder ins Lot zu bringen?
1000 Dank vorab!
LG
Justin
ich habe die letzen Jahre folgendens Makro unter XL 2013 und Windows 7 benutzt, um von der aktuellen XL-Datei einen Link zu versenen:
Sub Link_senden()
On Error Resume Next
Dim Name As String
Name = ActiveWorkbook.FullName
Dim App, Itm
Set App = CreateObject("Outlook.Application")
Set Itm = App.CreateItem(0)
With Itm
.Subject = Name '"Link und Hyperlink senden"
.To = ""
.Body = "ich habe obige Datei als Verknüpfung angehängt "
.Attachments.Add Name, 4, , ""
.Display ' This property is used when you want the user to see email and
' manually send. Then comment out rest of code except "End With" statement
' .send
End With
Set App = Nothing
Set Itm = Nothing
End Sub
Nun haben wir Windows 10 und die Kombination mit XL 2013 fünktioniert nict mehr richtig.
XL hängt die Verknüpfung nun an, statt wie früher einen link zu versenden.
Wer kann mir dabeihelfen, dass wieder ins Lot zu bringen?
1000 Dank vorab!
LG
Justin