ich möchte gern aus meiner Excel Liste viele Email Adresse austesten, welche eine Automatische Nachricht mit bestimmten Textbaustein beinhalten auslesen. Sollte der bestimmte Text vorhanden sein, so soll in Excel in einer Spalte neben der Email Adresse ein "Yes" eingeschrieben werden.
Soweit habe ich es schon mal geschafft eine Nachricht zu erstellen mit der VB Programmierung von Outlook. Leider sind meine VB Kenntnisse nicht ausreichend für die Schnittstelle.
Python kann ich leider nicht auf den Arbeitsrechner installieren.
Sub CheckAutoReply() Dim OL As Outlook.Application Dim EM As Outlook.mailItem Dim R As Outlook.Recipient Dim OutApp As Object Dim OutMail As Object Dim cell As Range Set OL = New Outlook.Application Set EM = CreateItem(olMailItem) With EM .Display .To = EXCEL LISTE EINFÜGEN? End With Set R = EM.Recipients(1) Debug.Print ? Set OL = Nothing Set EM = Nothing End Sub
Kann mir jemand behilflich sein? Vielen Dank.