Hallöchen,
ich habe eine Frage: Wenn ich den Code aus dem VBA Editor heraus starte klappt alles tadellos. Aber will ich ihn auf das Menüband legen, kommt folgende Fehlermeldung (siehe Anhang).
Ist leider nicht sehr viel sagend...kann jemand was damit anfangen? (Der Fehler kommt direkt nach der Ausführung).
Freue mich über Rückmeldungen.
ich habe eine Frage: Wenn ich den Code aus dem VBA Editor heraus starte klappt alles tadellos. Aber will ich ihn auf das Menüband legen, kommt folgende Fehlermeldung (siehe Anhang).
Ist leider nicht sehr viel sagend...kann jemand was damit anfangen? (Der Fehler kommt direkt nach der Ausführung).
Freue mich über Rückmeldungen.
Visual Basic-Quellcode
- Sub Email()
- Dim strUser, strDoc, strPath, strFile As String
- Dim oApp As New Outlook.Application
- Dim oMail As Outlook.MailItem
- Dim wDoc As Word.Document
- strUser = Environ("UserName")
- strDoc = InputBox("Bitte den gewünschten Dateinamen eintragen.")
- strPath = "C:\Users\" & strUser & "\Documents\"
- If strDoc = "" Then Exit Sub
- Set wDoc = ActiveDocument
- wDoc.ExportAsFixedFormat _
- OutputFilename:=strDoc, _
- ExportFormat:=wdExportFormatPDF, _
- OpenAfterExport:=False, _
- Range:=wdExportAllDocument
- Set oMail = oApp.CreateItem(olMailItem)
- strFile = strPath & strDoc & ".pdf"
- With oMail
- .Attachments.Add strFile
- .Display
- End With
- Set wDoc = Nothing
- Set oApp = Nothing
- Set oMail = Nothing
- Kill (strFile)
- End Sub
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Sam85“ ()