Code für Outlook funktioniert nicht mehr
22.01.2019 07:54:05
MarC
weiß jemand von euch da draußen, ob sich unter Office 365 die Codes mit denen man Outlook ansprechen kann verändert haben? Ich habe hier einen Code der beim öffnen der Excel Datei eMails an alle versendet die ihre Meilensteine nicht rechtzeitig abgeschlossenen haben. Im letzten Jahr hat dieser noch unter Office 2016 funktioniert. Wäre nett wenn mir da jemand weiterhelfen kann.
Private Sub Workbook_open()
Dim rCell As Range
Dim objApp As Object
Dim objMailItm As Object
Dim tBRng As String
Dim tReceiver As String
tBRng = "A10:A" & Sheets("Tracking Liste").UsedRange.Rows.Count
Set objApp = CreateObject("Outlook.Application")
For Each rCell In Sheets("Tracking Liste").Range(tBRng)
If IsDate(rCell.Offset(0, 6).Value) Then
If rCell.Offset(0, 6) - Date für das Projekt ist erreicht und wurde von Ihnen noch nicht _
aktualsiert, bitte Teilen Sie mir den aktuellen Stand mit. Vielen Dank." 'E-Mail Inhalt
.Send
End With
rCell.Offset(0, 10).Value = True 'Beim senden der E-Mail in Spalte K, _
WAHR eintragen
Set objMailItm = Nothing
End If
End If
Next
Set objApp = Nothing
End Sub