Hallo Leute,
ich habe folgendes Problem und ich hoffe es kann mir jemand dabei helfen.
Ich habe in Excel ein Makro geschrieben, dass bei einem bestimmten Datum eine Email an eine Person sendet. Die Email soll einen Link auf eine Excel-Datei enthalten.
Der Link läuft einwandfrei, wenn der Pfad keine „Leerzeichen“ enthält. Aber ich habe leider einen Pfad mit Leerzeichen, der nicht geändert werden kann.
Hier mein bisheriger Code:
Set myolApp = CreateObject(„Outlook.Application“)
'Set myitem = myolApp.CreateItem(3) ’ Erstellt eine Aufgabe
Set nachricht = myolApp.CreateItem(0)
With nachricht
.to = „[email protected]“ 'Adresse hier eingeben"
.Subject = „Sie haben eine Aufgabe zu erledigen“ 'Betreffzeile
.Body = „Bitte schauen Sie sich die Updateliste an. Hier der Link: file:///C:\User\meineDatei.xls . Sie haben bis einschließlich heute " & HeuteAufgaben & " von insgesamt " & Gesamtaufgaben & " Aufgaben zu erledigen!“ 'Sendetext"
'Hier wird die Mail gleich in den Postausgang gelegt
'und die Sicherheitsabfrage muss jedesmall bestätigt werden
.Send
'Hier wird die Mail „angezeigt“
'aber gleich versendet,… OHNE Sicherheitsabrage
'.Display
SendKeys „%s“, True
End With
Set myitem = Nothing
ErrorExit:
Exit Sub
ErrorAufgabe:
Select Case MyError
Case 1
MsgBox „Die Datei wurde noch nicht gespeichert“
Case 2
MsgBox „Outlook kann nicht gestartet werden“ & Chr$(13) & „Aufgabe wurde nicht erstellt !“
End Select
Resume ErrorExit
End Sub
Liebe Grüße
Sven