nachfolgend ein Modul, welches auch funktioniert.
Es werden "gelesen-" oder "gelöscht-" Meldungen automatisch an den Absender zurückgesendet.
Diese Extras möchte ich auch behalten.
Was mir fehlt, ist der Versand von Attachments.
Desweiteren möchte ich als Adressaten "to C" und "to CC" angeben können.
Hier nun das Modul:
Sub MailAnListe()
Dim outObj As Object
Dim Mail As Object
Dim Empf() As Variant
Dim Liste$, ListeA$, Länge%, i%, Y%
Set outObj = CreateObject("outlook.application")
Set Mail = outObj.CreateItem(0)
Länge = Cells(Rows.Count, 7).End(xlUp).Row
Mail.Subject = "Test"
Mail.Body = "Test"
For i = 3 To Länge
ReDim Preserve Empf(i)
If Rows(i).Hidden = False Then
Y = Y + 1
Empf(i) = Cells(i, 7)
If Länge = 3 Then Liste = Empf(i): Exit For
If Y = 1 Then ListeA = Liste & Empf(i)
If Y = 2 Then Liste = Liste & Empf(i)
If Y > 2 Then Liste = Liste & ";" & Empf(i)
End If
Next
Range("B170").Value = Liste
Mail.To = ListeA
Mail.cc = Liste
Mail.Display
Set Mail = Nothing
Set outObj = Nothing
End Sub
Nun weis ich aus der Recherche, daß es hier viele Beispiele für den Mailversand mit Attachments gibt.
Diese senden mir aber keine automatischen "gelesen" Meldungen zurück.
Kann mir bei diesem Problem jemand helfen?
Gruß
Bernhard