PERKELE
Commander
- Registriert
- Sep. 2014
- Beiträge
- 2.508
Guten Abend,
bei dem folgenden Makro erhalte ich immer zu die Fehlermeldung "Laufzeit Fehler 440".
ich habe schon das halbe Netz durchforstet aber bisher keine wirkliche Abhilfe gefunden, nun vllt. könntet Ihr mir kurz auf die Sprünge helfen.
Ich habe es mit "" oder () probiert, es ging alles nicht. =(
Grüße,
bei dem folgenden Makro erhalte ich immer zu die Fehlermeldung "Laufzeit Fehler 440".
ich habe schon das halbe Netz durchforstet aber bisher keine wirkliche Abhilfe gefunden, nun vllt. könntet Ihr mir kurz auf die Sprünge helfen.
Code:
Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
Dim strTrans As String
strTrans = strPfad & "Transfer.xls"
With objMail
.Attachments.Add = (strTrans)
.To = "example@mail.ex"
.CC = "example2@mail.ex"
.Subject = "Beispiel " & Date 'Betreff mit Datum
.Body = "TEST."
.Display
.Attachments.Add = strTrans
End With
End Sub
Code:
strPfad = Environ("UserProfile") & "\Desktop\"Ich habe es mit "" oder () probiert, es ging alles nicht. =(
Grüße,
