VBOffice

Email automatisch senden

Dieses Beispiel zeigt, wie Sie eine Email automatisch und regelmäßig zu einem festen Zeitpunkt versenden können.

Zuletzt geändert: 19.01.2006 | Aufrufe: 121.157  | #10
◀ Vorheriges Beispiel Nächstes Beispiel ▶
SAM SAM
Legen Sie fest, mit welcher "Identität" Ihre Emails beim Empfänger erscheinen sollen. Mit SAM bestimmen Sie den Absender und Speicherort für Emails anhand von Regeln.

Müssen Sie jeden Tag zur gleichen Zeit eine E-Mail versenden? Outlook sieht dafür keine Regel vor, aber Sie können für solche Aufgaben den Mechanismus der Erinnerungen nutzen.

Erstellen Sie eine Aufgabe mit einem eindeutigen Betreff und setzen Sie die gewünschte Erinnerungszeit fest. Tragen Sie den Betreff im Code unter ReminderSubject ein. Sie könnten statt täglicher Intervalle natürlich auch andere, z.B. stündliche, festlegen.


tip  So fügen Sie Makros in Outlook ein
Private Sub Application_Reminder(ByVal Item As Object)
  SendAutoEmail Item
End Sub

Private Sub SendAutoEmail(Item As Object)
  Dim oTask As Outlook.TaskItem
  Dim oMail As Outlook.MailItem
  Dim oFld As Outlook.MAPIFolder
  Dim ReminderSubject As String
  Dim EmailSubject As String
  Dim SendTo As String
  Dim Message As String

  'Task item
  ReminderSubject = "TäglicheErinnerung"

  'Email
  SendTo = "name@domain.com"
  EmailSubject = "Beispiel"
  Message = "diese nachricht wurde automatisch versandt"

  If TypeOf Item Is Outlook.TaskItem Then
    Set oTask = Item
    If LCase$(oTask.Subject) = LCase$(ReminderSubject) Then

      oTask.ReminderTime = DateAdd("d", 1, oTask.ReminderTime)
      oTask.Save

      Set oMail = Application.CreateItem(olMailItem)
      oMail.Subject = EmailSubject
      oMail.Body = Message
      oMail.Recipients.Add SendTo
      oMail.Recipients.ResolveAll
      oMail.Send
    End If
  End If
End Sub
Category-Manager Category-Manager
Mit dem Category-Manager können Sie Outlook Kategorien gruppieren, synchronisieren und filtern, neuen Emails automatisch die Kategorie des Absenders zuweisen und vieles mehr. Das Addin ist auch für IMAP geeignet.
email  Senden Sie eine Nachricht