home | get Sue’s code | forums | share code | registration

Outlook Technologies

Outlook Forms

Languages

Samples

More Outlook Resource Sites

Microsoft Developer Network (MSDN)

FAQs and other general resources

share code 09-Feb-2010 07:16

Looking for help with Outlook programming projects — VSTO, add-ins, VBA, custom Outlook forms, etc.? You′ve come to the right place!

NEW! >> Subscribe to this site via RSS. For more RSS options, see the complete list of feeds on our main news page.

Code level: beginner Code area: Basic Outlook Printer Friendly Version
Title: Sending A Fax to the Active Contact
Description: This Macro very simply collects the active Contact (Thank you to Sue Mosher) and Populates merge feilds in a fax coverpage. Thank you to Sue for the GetCurrentItem Function and Thank you to John Mulvaney for assistance with the rest.
Date: 02-Sep-2003 01:18
Code level: beginner
Code area: Basic Outlook
Posted by: Mark Moser
Body: Sub CreateFaxCover() Dim MyContact As ContactItem Set MyContact = GetCurrentItem() Set appWord = CreateObject("Word.Application") If Not appWord.Visible Then appWord.Visible = True End If Set oDoc = appWord.Documents.Add("C:\CreateFaxCover.doc") For Each fldField In oDoc.Fields Select Case fldField.Result.Text Case "«Full_Name»" fldField.Result.Text = MyContact.FullName Case "«Company»" fldField.Result.Text = MyContact.CompanyName Case "«Business_Phone»" fldField.Result.Text = MyContact.BusinessTelephoneNumber Case "«Business_Fax»" fldField.Result.Text = MyContact.BusinessFaxNumber ' You get the idea. Add whatever feilds you like. End Select Next End Sub Function GetCurrentItem() As Object Dim objApp As Outlook.Application Set objApp = CreateObject("Outlook.Application") On Error Resume Next Select Case TypeName(objApp.ActiveWindow) Case "Explorer" Set GetCurrentItem = objApp.ActiveExplorer.Selection.Item(1) Case "Inspector" Set GetCurrentItem = objApp.ActiveInspector.CurrentItem Case Else ' anything else will result in an error, which is ' why we have the error handler above End Select Set objApp = Nothing End Function
All 4comments

	Page [ 1 ]
	Sue Mosher 07-Sep-2003 19:37 Once you have the oDoc document populated, you could print it, display it, or save and attach it to an Outlook message addressed to a fax recipient.
	Michel 28-Jul-2004 04:27 I created a word form using the above code, it works fine. However, now I'm looking to remove empty lines when the field result is ""
	Max 20-Aug-2004 16:02 I get an error '13' in Set MyContact = GetCurrentItem() ??
	Sue Mosher 20-Aug-2004 17:14 So, is the current item a contact? This would be a better way to handle this situation: Dim MyContact As Object Set MyContact = GetCurrentItem() If MyContact.Class = olContact Then ' continue the procedure here End IF
	Page [ 1 ]

name email

Search Outlook Code