Sample Outlook Automation
Create Outlook E-Mail Message (From Excel) – Early Binding
Sub CreateMailInExcelEarlyBound()
Dim olApp As Outlook.Application
Dim Msg As Outlook.MailItem
Set olApp = New Outlook.Application
Set Msg = olApp.CreateItem(olMailItem)
Msg.Display
Set Msg = Nothing
Set olApp = Nothing
End Sub
Dim olApp As Outlook.Application
Dim Msg As Outlook.MailItem
Set olApp = New Outlook.Application
Set Msg = olApp.CreateItem(olMailItem)
Msg.Display
Set Msg = Nothing
Set olApp = Nothing
End Sub
Create Outlook E-Mail Message (From Excel) – Late Binding
Sub CreateMailInExcelLateBound()
Dim olApp As Object
Dim Msg As Object
Set olApp = CreateObject("Outlook.Application")
Set Msg = olApp.CreateItem(0)
Msg.Display
Set Msg = Nothing
Set olApp = Nothing
End Sub
Dim olApp As Object
Dim Msg As Object
Set olApp = CreateObject("Outlook.Application")
Set Msg = olApp.CreateItem(0)
Msg.Display
Set Msg = Nothing
Set olApp = Nothing
End Sub
Create Outlook Contact (From Excel) – Early Binding
Sub CreateContactInExcelEarlyBound()
Dim olApp As Outlook.Application
Dim Ctct As Outlook.ContactItem
Set olApp = New Outlook.Application
Set Ctct = olApp.CreateItem(olContactItem)
Ctct.Display
Set Ctct = Nothing
Set olApp = Nothing
End Sub
Dim olApp As Outlook.Application
Dim Ctct As Outlook.ContactItem
Set olApp = New Outlook.Application
Set Ctct = olApp.CreateItem(olContactItem)
Ctct.Display
Set Ctct = Nothing
Set olApp = Nothing
End Sub
Create Outlook Contact (From Excel) – Late Binding
Sub CreateContactInExcelLateBound()
Dim olApp As Object
Dim Ctct As Object
Set olApp = CreateObject("Outlook.Application")
Set Ctct = olApp.CreateItem(2)
Ctct.Display
Set Ctct = Nothing
Set olApp = Nothing
End Sub
Dim olApp As Object
Dim Ctct As Object
Set olApp = CreateObject("Outlook.Application")
Set Ctct = olApp.CreateItem(2)
Ctct.Display
Set Ctct = Nothing
Set olApp = Nothing
End Sub
Create Outlook Task (From Excel) – Early Binding
Sub CreateTaskInExcelEarlyBound()
Dim olApp As Outlook.Application
Dim Tsk As Outlook.TaskItem
Set olApp = New Outlook.Application
Set Tsk = olApp.CreateItem(olTaskItem)
Tsk.Display
Set Tsk = Nothing
Set olApp = Nothing
End Sub
Dim olApp As Outlook.Application
Dim Tsk As Outlook.TaskItem
Set olApp = New Outlook.Application
Set Tsk = olApp.CreateItem(olTaskItem)
Tsk.Display
Set Tsk = Nothing
Set olApp = Nothing
End Sub
Create Outlook Task (From Excel) – Late Binding
Sub CreateTaskInExcelLateBound()
Dim olApp As Object
Dim Tsk As Object
Set olApp = CreateObject("Outlook.Application")
Set Tsk = olApp.CreateItem(3)
Tsk.Display
Set Tsk = Nothing
Set olApp = Nothing
End Sub
Dim olApp As Object
Dim Tsk As Object
Set olApp = CreateObject("Outlook.Application")
Set Tsk = olApp.CreateItem(3)
Tsk.Display
Set Tsk = Nothing
Set olApp = Nothing
End Sub
Create Outlook Journal Entry (From Excel) – Early Binding
Sub CreateJournalInExcelEarlyBound()
Dim olApp As Outlook.Application
Dim Jrnl As Outlook.JournalItem
Set olApp = New Outlook.Application
Set Jrnl = olApp.CreateItem(olJournalItem)
Jrnl.Display
Set Jrnl = Nothing
Set olApp = Nothing
End Sub
Dim olApp As Outlook.Application
Dim Jrnl As Outlook.JournalItem
Set olApp = New Outlook.Application
Set Jrnl = olApp.CreateItem(olJournalItem)
Jrnl.Display
Set Jrnl = Nothing
Set olApp = Nothing
End Sub
Create Outlook Journal Entry (From Excel) – Late Binding
Sub CreateJournalInExcelLateBound()
Dim olApp As Object
Dim Jrnl As Object
Set olApp = CreateObject("Outlook.Application")
Set Jrnl = olApp.CreateItem(4)
Jrnl.Display
Set Jrnl = Nothing
Set olApp = Nothing
End Sub
Dim olApp As Object
Dim Jrnl As Object
Set olApp = CreateObject("Outlook.Application")
Set Jrnl = olApp.CreateItem(4)
Jrnl.Display
Set Jrnl = Nothing
Set olApp = Nothing
End Sub
Create Outlook Note (From Excel) – Early Binding
Sub CreateNoteInExcelEarlyBound()
Dim olApp As Outlook.Application
Dim sNote As Outlook.NoteItem
Set olApp = New Outlook.Application
Set sNote = olApp.CreateItem(olNoteItem)
sNote.Display
Set sNote = Nothing
Set olApp = Nothing
End Sub
Dim olApp As Outlook.Application
Dim sNote As Outlook.NoteItem
Set olApp = New Outlook.Application
Set sNote = olApp.CreateItem(olNoteItem)
sNote.Display
Set sNote = Nothing
Set olApp = Nothing
End Sub
Create Outlook Note (From Excel) – Late Binding
Sub CreateNoteInExcelLateBound()
Dim olApp As Object
Dim sNote As Object
Set olApp = CreateObject("Outlook.Application")
Set sNote = olApp.CreateItem(5)
sNote.Display
Set sNote = Nothing
Set olApp = Nothing
End Sub
Dim olApp As Object
Dim sNote As Object
Set olApp = CreateObject("Outlook.Application")
Set sNote = olApp.CreateItem(5)
sNote.Display
Set sNote = Nothing
Set olApp = Nothing
End Sub
See the Binding page for additional help implementing these samples.
