Aus Excel Email mit Anhang verschicken
09.04.2021 09:19:04
Jäger
ich hoffe ihr könnt mir vielleicht weiter helfen.
ich möchte aus Excel eine email mit Anhang verschicken, jedoch bekomme ich immer einen Fehler Code:
Microsoft Visual Basic
Laufzeitfehler '91':
Objecktvariable oder With-Blockvariable nicht festgelegt
Der Code
Sub PDF_und_Senden()
Dim DateiName As String
DateiName = Range("I15") & ".pdf"
Range("A1:G49").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, Quality:= _
xlQualityStandart, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Dim Outlook As Object
Dim Nachricht As Object
Dim myAttachments As Object
Set OutlookApp = CreateObject("Outlook.Application")
Set Nachricht = Outlook.App.CreateItem(0)
Set myAttachments = OutlookMailItem.Attachments
With Nachricht
.To = Range("H14")
.Subject = Range("H15")
.Body = Range("H20") & ("H22") & ("H23")
myAttachments.Add DateiName
.Display
'.Mail.Send
End With
Set OutlookApp = Nothing
Set Nachricht = Nothing
End Sub
und beim debuggen bleib er an der Zeile :Set Nachricht = Outlook.App.CreateItem(0)
hängen .
was kann ich tun , wäre über euere hilfe erfreut .
Ganz liebe grüße