StartDownloadsServiceSamplesWorkshopsContact DeutschEnglish
 
Samples
General
Outlook®
 
Awarded by
Microsoft since 2005:
mvp logo
VBOffice Info
Visitors1724831
Impressions6488703
Links
Imprint
Privacy Policy
Contact
E-Mail: Send template
Author: Michael BauerHomepage
Date: 22.02.2007Accessed: 25215
  
Description

We are very sorry! This description is not translated yet. Anyway, please try the code as it is self-explanatory.

' <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 alerts you before unintentionally replying all, or if you are a confidential BCC recipient of the ... [more]

 

Access the master category list in the blink of an eye, share your categories in a network, get a reminder service, and ... [more]

 

SAM automatically sets the sender, signature, and folder for sent items, for instance based on the recipient ... [more]

 

OLKeeper reliably prevents users from closing their Outlook window and thus possibly missing reminders or ... [more]