Typen unverträglich
25.03.2021 21:29:57
Richard
ich würde gerne mit dem makro eine eMail erstellen die eine/od mehrere Datei(en) mit hochlädt
ich bekomme aber die Fehlermeldung : Typen unverträglich.
bitte um Hilfe..
Sub Schaltfläche12_Klicken()
Dim MyOutApp As Object
Dim MyMessage As Object
Dim i As Integer
Dim AntwortX As String
i = 2
'Erstellung der Email
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItemFromTemplate("EmailVorlage.oft")
With MyMessage
.To = Workbooks("File.xlsm").Sheets("X").Cells(i, 2)
.cc = Workbooks("File.xlsm").Sheets("X").Cells(i, 3)
.Subject = Workbooks("File.xlsm").Sheets("X").Cells(i, 4)
.BODY = Workbooks("File.xlsm").Sheets("X").Cells(i, 5) & Chr(10) & Chr(10) & Workbooks(" _
File.xlsm").Sheets("X").Cells(i, 6) & Chr(10)
.BODY = Workbooks("File.xlsm").Sheets("X").Cells(i, 6) & Chr(10) & Chr(10) & Workbooks(" _
File.xlsm").Sheets("X").Cells(i, 7) & Chr(10)
.Attachments.Add "PFAD\Ordner A" & Workbooks("File.xlsm").Sheets("Y").Cells(2, 5).Value \ _
"Z" & Workbooks(" File.xlsm").Sheets("X").Cells(2, 5).Value & "File" & ".xlsx"
.Display
Application.Wait (Now + TimeValue("0:00:01"))
End With
' MyMessage.send
Set MyOutApp = Nothing 'CreateObject("Outlook.Application")
Set MyMessage = Nothing 'MyOutApp.CreateItem(0)
Windows("File.XLSM").Activate
End Sub
kurz gefasst:
Es soll eine eMail geöffnet werden mit einem Anhang der im Ordner A ist (A = cells(2, 5)).
Bitte um Hilfe