Home-›Foren-›Outlook-›Outlook Allgemein-›Serienmail mit Verzögerung schicken
- This topic has 3 Antworten, 1 Stimmen, and was last updated 10:38 um 18. Februar 2023 by Markus Schulz.
- AutorBeitrag
- 14. November 2006 um 10:57 #39075UnbekanntParticipant
hallo,
habe auch ein prob mit der serienbrieffunktion. ich möchte die mail personifiziert senden mit der empfängeremailadresse im \“an-Feld\“ und die anrede aus der datenbank benutzen. bis hierhin kein problem, aber: ich würde die mails gern verzögert senden.
word übergibt die mails nicht mit der funktion \“verzögert senden\“ und wenn word von OL nur als editor verwendet wird, kann ich zwar im nachrichtentext serienbrieffunktionen nutzen, aber nicht für das \“an-Feld\“. habe schon probiert einfach <> einzufügen, wird aber leider nicht erkannt.
also wenn jemand weiß wie serienmails verzögert gesendet werden können bitte helfen!gruß, cb.
p.s. die mails sollen gesendet werden, wenn ich nicht mehr im büro bin. also ein deaktivieren von sofort senden um sie dann später zu schicken kommt nicht in frage. ebenso die optionen der mails einzeln zu ändern da es einfach zu viele sind.
14. November 2006 um 11:21 #138661UnbekanntParticipantDa kann ich dir leider auch nicht helfen, aber vielleicht du mir. Ich möchte eine einzelne mail zeitversetzt verschicken. Ich finde da aber bei outlook keine möglichkeit. Weißt du da rat?
Gruß Menzi14. November 2006 um 14:48 #138667UnbekanntParticipantdas kann ich wohl. also bei OL2003 ist diese funktion über option erreichber, du mußt einen haken setzen bei \“übermittlung verzögern bis\“ und dann auf senden. du mußt anschließend die nachrichten senden/empfangen. zum endgültigen (automatischen) senden mußt du wahrscheinlich online sein.
gruß raus,
18. Februar 2023 um 10:38 #1029510Markus SchulzParticipantIn Outlook mit Alt+F11 z.B. folgenden Code verwenden. Hier wird je Email auch noch 20 Sekunden verzögert.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim xMail As Outlook.MailItem
On Error GoTo xErrorIf (Item.Class <> olMail) Then Exit Sub
Set xMail = Item
xMail.DeferredDeliveryTime = DateSerial(DateAdd(„s“, 20 * Application.GetNamespace(„MAPI“).GetDefaultFolder(olFolderOutbox).Items.Count, dateserial(2023,08,18)+timeserial(20,30,00))Exit Sub
xError:
MsgBox „ItemSend: “ & Err.Description, , „Error“
End Sub - AutorBeitrag