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

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

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

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

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

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

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

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

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

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

See the Binding page for additional help implementing these samples.

LAST UPDATED: May 15, 2008