German Serienemails senden

wleupold

Member
Licensed User
Longtime User
Ich möchte gerne aus einem Datenbankprogramm heraus mehrere Emails in Serie versenden. Leider habe ich bisher nur die Möglichkeit gefunden einzelne Emails zu erstellen und diese anschließend an den Email-Client zu übergeben. Ich muss immer wieder auf Übergeben und dann Absenden tippen, was sehr lästig und unpraktisch ist.
In einer Schleife startet bei mir der Email-Client nur ein einziges Mal. Eine For-next-Schleife scheint nicht zu funktionieren.
Folgendes Beispiel:

Dim Message As Email
For i = 1 To Anzahl
Message.To.Add(“meine@Adresse.de”)
message.Subject = "Betreff”
message.Body = "Emailtext”
StartActivity(Message.GetIntent)
Next

Hier wird bei mehreren Durchläufen der Befehl StartActivity(Message.GetIntent) nur einmal ausgeführt.

Gibt es eine andere Möglichkeit Emails zu versenden!
:sign0163:
Danke für jede Hilfe

Werner
 
Top