OLookAutomate

Option Explicit

'Create an object to refererence the Outlook App.
'This is simular to a pointer and is declared in this way...
'...to allow early binding, making the code 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 item
    Dim e1 As Outlook.AppointmentItem
   'Create a new appointment item
    Set e1 = o1.CreateItem(olAppointmentItem)
   'Set a few of the many possible appointment 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

Option Explicit

'Create an object to refererence the Outlook App.

'This is simular to a pointer and is declared in this way...

'...to allow early binding, making the code 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 item

Dim e1 As Outlook.AppointmentItem
'Create a new appointment item

Set e1 = o1.CreateItem(olAppointmentItem)
'Set a few of the many possible appointment 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