[tomekz]

Hallöchen,

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.

[RalphS]

Leider immer noch ein üblicher Trugschluß: das ist nicht die VBA-Schnittstelle von Outlook, sondern es ist die VBA-Schnittstelle von Office.

Du müßtest also zwei Objekte haben, einmal Excel.Application und einmal Outlook.Application, und müßtest nun mehr oder weniger "ganz normal" mit dem Excel-Objekt eine Datei zuweisen und öffnen und die bewußten Zellen auflisten, und dann den Inhalt dieser Zellen ans Outlook-Objekt übergeben und dem dann sagen, was weiter passieren soll.

[tomekz]

Ein Trugschluss ist es auch, das ich nirgendwo erwähnt habe die Schnittstelle sei von Outlook.

Genau, dieses weiter passieren ... dort bin ich überfordert.