A dead good example of Automation with Outlook

Option Explicit
'Create an object to refererence the Out
' look App.
'This is simular to a pointer and is dec
' lared in this way...
'...to allow early binding, making the c
' ode more efficient.
Private o1 As Outlook.Application


Private Sub Form_Load()
'Create an instance of Outlook
Set o1 = New Outlook.Application
End Sub


Private Sub Form_Terminate()
'Comment out this line if you don't want
' to close Outlook
o1.Quit
'The next line frees up the memory used
Set o1 = Nothing
End Sub


Private Sub CreateEmail(Recipient As String, Subject As String, Body As String, Attach As String)
'Create a reference to a mail item
Dim e1 As Outlook.MailItem
'Create a new mail item
Set e1 = o1.CreateItem(olMailItem)
'Set a few of the many possible message
' parameters.
e1.To = Recipient
e1.Subject = Subject
e1.Body = Body
'This is how you add attatchments


If Attach <> vbNullString Then
e1.Attachments.Add Path
End If
'Commit the message
e1.Send
'Free up the space
Set e1 = Nothing
End Sub


Private Sub CreateContact(Name As String, Nick As String, Email As String)
'Create a reference to a Contact item
Dim e1 As Outlook.ContactItem
'Create a new contact item
Set e1 = o1.CreateItem(olContactItem)
'Set a few of the many possible contact
' parameters.
e1.FullName = Name
e1.NickName = Nick
e1.Email1Address = Email
'Commit the contact
e1.Save
'Free up the space
Set e1 = Nothing
End Sub


Private Sub CreateAppointment(StartTime As Date, Endtime As Date, Subject As String, Location As String)
'Create a reference to a Appointment ite
' m
Dim e1 As Outlook.AppointmentItem
'Create a new appointment item
Set e1 = o1.CreateItem(olAppointmentItem)
'Set a few of the many possible appointm
' ent parameters.
e1.Start = StartTime
e1.End = Endtime
e1.Subject = Subject
e1.Location = Location
'If you want to set a list of recipients
' , do it like this
'e1.Recipients.Add Name
'Commit the appointment
e1.Send
'Free up the space
Set e1 = Nothing
End Sub