StartDownloadsServiceBeispieleWorkshopsKontakt DeutschEnglish
 
Beispiele
Allgemein
Outlook®
 
Awarded by
Microsoft since 2005:
mvp logo
VBOffice Info
Besucher1777517
Aufrufe6665241
Links
Impressum
Datenschutz
Kontakt
E-Mail: Vorlage versenden
Autor: Michael BauerHomepage
Datum: 22.02.2007Zugriffe: 25821
  
Beschreibung

Dieses Beispiel zeigt, wie man eine Vorlage im Ordner 'Entwürfe' anhand des Betreffs findet. Von der Vorlage wird dann eine Kopie erstellt und angezeigt. Legen Sie sich einfach eine neue Schaltfläche auf die Symbolleiste, welche die Prozedur 'LoadTemplate' aufruft, und schon können Sie mit nur einem Klick eine Vorlage öffnen, ggf. ausfüllen und versenden, ohne dass das Original verloren geht.

Den Betreff der Vorlage geben Sie in der Konstante 'TEMPLATE_NAME' an.

' <DieseOutlookSitzung>
Private Const TEMPLATE_NAME As String = "tolle vorlage"

Public Sub LoadTemplate()
  Dim Ns As Outlook.NameSpace
  Dim Folder As Outlook.MAPIFolder
  Dim Mail As Outlook.MailItem

  Set Ns = Application.GetNamespace("MAPI")
  Set Folder = Ns.GetDefaultFolder(olFolderDrafts)
  Set Mail = GetTemplate(Folder.Items)
  If Not Mail Is Nothing Then
    Mail.Display
  End If
End Sub

Private Function GetTemplate(Items As Outlook.Items) As Outlook.MailItem
  On Error Resume Next
  Dim Mail As Outlook.MailItem

  Set Mail = Items.Find("[subject]=" & Chr(34) & TEMPLATE_NAME & Chr(34))

  If Not Mail Is Nothing Then
    Set GetTemplate = Mail.Copy
  End If
End Function
' </DieseOutlookSitzung>
 
 

ReplyAll warnt Sie, bevor Sie unbeabsichtigt allen Empfängern einer E-Mail antworten oder wenn Sie ein vertraulicher BCC-Empfänger der E-Mail ... [weiter]

 

Blitzschneller Zugriff auf die Hauptkategorienliste, gemeinsame Kategorien im Netzwerk, eine Erinnerungsfunktion ... [weiter]

 

SAM legt automatisch Absender, Signatur und Speicherort für gesendete Mails fest, z.B. anhand der ... [weiter]

 

OLKeeper verhindert zuverlässig, dass Mitarbeiter Outlook schließen und dadurch Termine oder E-Mails ... [weiter]

So entgeht Ihnen kein Auftrag mehr:
Telefonservice und Sekretariatsservice