Email absenden per Code geht nicht mehr!?
19.05.2016 12:42:08
Juergen
bislang verwendete ich unter WIN 7 und OUTLOOK 2010 diesen Code um nach Speicherung eines Sheets in ein PDF dieses in einer Email als Attachment abzusenden.
OutMail.To = Sheets(sBlatt).Range("B16")
OutMail.CC = ""
OutMail.BCC = ""
OutMail.Subject = Sheets(sBlatt).Range("B25")
OutMail.Body = Sheets(sBlatt).Range("B27") & Chr(13) & _
"" & Chr(13) & _
"in der Anlage erhalten Sie die Lohndaten für den im Betreff genannten Abrechnungsmonat." & Chr(13) & _
"" & Chr(13) & _
"Mit freundlichen Gruessen," & Chr(13) & _
Nun wurde umgestellt auf WIN 2010 und OUTLOOK 2016 und promt kommt ein Debugg Fehler an der Stelle, wo es beginnt den Email Adressat auszulesen:
OutMail.To = Sheets(sBlatt).Range("B16")
Die Fehlermeldung lautet dazu:
Laufzeitfehler'-2147417851 (80010105)
Die Methode 'To' für das Objekt '_MailItem' ist fehlgeschlagen
Könnte jemand helfen!? Danke im voraus.
Gruss, Juergen