| | Awarded by
Microsoft since 2005: |  |
| | VBOffice Info | | Besucher | 1392386 | | Aufrufe | 5100700 |
| |
|
| |
| Autor: Michael Bauer | Homepage | | Datum: 22.02.2007 | Zugriffe: 20367 | | | | 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. |
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
|
| | |
| | |  | 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] |
| | |
|
