Hallo Forumgemeinde,
meine Officeversion wurde von 2010 auf 2016 erneuert und nun funktioniert mein Makro zum Senden einer Email durch eine Exceldatei nicht mehr. Ich habe im Internet nur Hinweise auf Kompatibilitätsprobleme gefunden, aber keinen hilfreichen Lösungsansatz.
Mein Code lautet:
Sub SendEmail()
Dim Attachment1 As String
Attachment1 = Cells(86, 12) 'Path of attachment
Range("R74:R83").Select 'Text of Email
Dim rng As Range
Dim olapp As Object
Set olapp = CreateObject("Outlook.Application")
With olapp.CreateItem(0)
Set rng = Selection
.HtmlBody = RangetoHTML(rng)
.Subject = Cells(71, 18)
.to = Cells(72, 18)
.attachments.Add Attachment1
.Display
End With
Set rng = Nothing
Set olapp = Nothing
End Sub
Der Runtimeerror tritt bei .Subject = Cells (71,18) auf:
Laufzeitfehler '-2147417851 (80010105)
Die Methode 'Subject' für das Objekt '_MailItem' ist fehlgeschlagen
Vielleicht hatte von euch schon mal jemand den Fehler und kann mir weiterhelfen.
Vielen Dank im Voraus!
Viele Grüße,
Louis
|