Mail aus Excel öffnen/schreiben
16.10.2017 08:32:56
r2d2
bis vor kurzem hatte ich noch Win7 und Office10.
Jetzt habe ich Win10 und Office16.
Folgender Code läuft jetzt nicht mehr:
Sub send_mail()
Dim START As String
START = 222
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = Sheets("Mail").Range("C" & START)
.CC = Sheets("Mail").Range("C" & START + 2)
.Subject = Sheets("Mail").Range("C" & START + 4)
.Body = Sheets("Mail").Range("C" & START + 6) & vbLf & vbLf & Sheets("Mail").Range("C" & _
START + 8)
.Display
End With
End Sub
Was muß ich jetzt wo wie ändern, damit das wieder läuft?
Danke für eure Hilfe
Gruß
r2d2