AW: Excel VBA Makro
23.06.2025 12:39:11
velo
Hi,
wie genau stehen denn die 5 Adressen in AC? Sind die durch ein bestimmtes Zeichen getrennt oder per Absatz?
Eine Beispieldatei von dir würde uns hier weiterhelfen.
Im allgemeinen geht der Mail Versand so (Beispiel von Copilot mit den wichtigsten Funktionen), du musst das halt noch mit einem Loop verknüpfen, der auf das Datum schaut:
Option Explicit
Sub SendOutlookMail_LateBinding()
Dim olApp As Object
Dim olMail As Object
' Outlook-Instanz mittels Late Binding starten oder nutzen, falls bereits geöffnet.
On Error Resume Next
Set olApp = GetObject(, "Outlook.Application")
If olApp Is Nothing Then
Set olApp = CreateObject("Outlook.Application")
End If
On Error GoTo 0
If olApp Is Nothing Then
MsgBox "Outlook konnte nicht gestartet werden!", vbExclamation
Exit Sub
End If
' Neues E-Mail-Objekt erstellen (olMailItem = 0)
Set olMail = olApp.CreateItem(0)
With olMail
' Empfänger festlegen
.To = "empfaenger@example.com"
.CC = "kopie@example.com"
.BCC = "blindkopie@example.com"
' E-Mail-Betreff und Inhalt definieren
.Subject = "Betreff der E-Mail"
.Body = "Dies ist der Inhalt der E-Mail."
' Alternativ: HTML formatierten Inhalt verwenden
' .HTMLBody = "Willkommen
Dies ist eine HTML-E-Mail.
"
' E-Mail anzeigen (zum Testen); alternativ mit .Send direkt versenden.
.Display
End With
End Sub
VG
velo