Dim olApp As Outlook.Application
   Dim olMail As MailItem
   Dim objOutlookAttach As Outlook.Attachment
  
   Set olApp = New Outlook.Application
   Set olMail = olApp.CreateItem(olMailItem)
  
   With olMail
       .BodyFormat = olFormatHTML
       .To = Left(pubMessageRecipientsToAddress, Len(pubMessageRecipientsToAddress) - 1)
       .CC = ""
       .Subject = pubMessageSubject
       .Body = pubMessageBody
    End With
    
   'Add Attachments
   Dim db As DAO.Database
   Dim rstAttachements As DAO.Recordset
      
   Set db = CurrentDb()
   Set rstAttachments = db.OpenRecordset("Select EMailAttachment from tblTempSendEMailAttachments")
  
   If rstAttachments.RecordCount > 0 Then
       With rstAttachments
           .MoveLast
           .MoveFirst
                  
           Do Until .EOF
               If DoesFileExist(rstAttachments!EMailAttachment) Then
                   With olMail
                     .Attachment.Add (rstAttachments!EMailAttachment)
                   End With
               End If
               .MoveNext
           Loop
       End With
   End If
      
   With olMail
       .Save
       .Send
   End With
  
   Set olMail = Nothing
   Set olApp = Nothing
  
   MsgBox "Mail Sent!", vbOKOnly, "Mail Sent"

Set objOutlook = GetObject(, "Outlook.Application")


   Set objOutlook = CreateObject("Outlook.Application")
   Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
   With objOutlookMsg
   Set objOutlookRecip = .Recipients.Add(somebody@somewhere.com)
                      
          objOutlookRecip.type = olTo
      .Subject = "here you go"
      .Body = "This information is being automatically generated " & vbCrLf _
        & "If you have any issues please contact the sender"
    
      .Importance = olImportanceHigh  'High importance
        Set objOutlookAttach = .Attachments.Add(strpath & "somefilexls")