wir müssen jeden Freitag immer dem selben Empfänger eine Mail mit genau dem gleichen Inhalt schicken. Kann man das im Outlook so einrichten oder gibt es ein bestimmtes tool dafür? Es würde schon reichen, wenn diese E-Mail jeden Freitag als Vorlage sagen wir „aufleuchten“ würde damit das nicht vergessen wird.
wir müssen jeden Freitag immer dem selben Empfänger eine Mail
mit genau dem gleichen Inhalt schicken.
*grübel* über den Sinn solcher Aktionen?
Kann man das im Outlook so einrichten oder gibt es ein bestimmtes tool dafür?
jein, du könntest die Mail verzögern, d.h. aber du müsstest die Mail für jeden Versand neu erstellen. Über [Optionen] in der Symbolleiste kannst du dann das verzögerte Versanddatum eingeben.
Es würde schon reichen, wenn diese E-Mail jeden Freitag als
Vorlage sagen wir „aufleuchten“ würde damit das nicht vergessen wird.
für einen Hinweis gibt es die Aufgaben in Outlook
Über den Taskmanager in Windows kannst du die Mail dann ja noch „aufpoppen“ lassen:
Outlook öffnen
Mail erstellen
Mail speichern
Mail liegt nun im Ordner Entwürfe
diese Mail per drag&drop in einen Ordner oder Desktop kopieren
ich habe das so gemacht wie es in der Beschreibung steht. Da ich aber keine Ahnung davon habe, frage ich lieber nochmal.
Von oben nach unten habe ich folgendes ersetzt:
„DailyMailReminder“ -> „WeeklyMailReminder“
„Daily Mail“ -> „Weekly Mail“
„[email protected]“ -> „E-Mailadresse“
„Hello“ -> „den Text den ich mailen will.“
Ist bei dem Text auch 1 Enter gleich 1 Enter?
Wo lege ich denn die Startzeit fest und kann ich einfach Daily auf Weekly ändern?
Private Const REMINDER_SUBJECT As String = „WeeklyMailReminder“
Private Sub Application_Reminder(ByVal Item As Object)
SendMailInReminderIntervals Item
End Sub
Private Sub SendMailInReminderIntervals(Item As Object)
Dim oTask As Outlook.TaskItem
Dim oMail As Outlook.MailItem
Dim oFld As Outlook.MAPIFolder
Const TEMPLATE_SUBJECT As String = „Daily Mail“
Const TEMPLATE_ADR As String = „[email protected]“
Const TEMPLATE_BODY As String = „Hallo Herr XXX,“
bitte teilen Sie uns die Anzahl der Leergut-Paletten die am Montag zu holen sind mit.
Vielen Dank
Mit freundlichen Grüßen
Patrick Eschner
__________________________________________
C & L Service GmbH
Salvatorstr. 15a
85290 Geisenfeld -Nötting
Telefon: +49 8456 - 91 54 39
Telefax: +49 8456 - 91 60 65
E -Mail: Patrick.Eschner@ c - l - service.DE
Internet: http://www.c-l-service.de
__________________________________________
Set oMail = Application.CreateItem(olMailItem)
oMail.Subject = TEMPLATE_SUBJECT
oMail.Body = TEMPLATE_BODY
oMail.Recipients.Add TEMPLATE_ADR
oMail.Recipients.ResolveAll
oMail.Send
End If
End If
End Sub