Just use the 2 MAPI activX control components. Is very simple and stores the outgoing email in your Outlook sent items box.
This is how I bulk email send blind CCs to all customers in groups of 50, the email adresses are all in an MSACCESS table that is the Datasource of my ADODCEmail:-
Sub SendAllEmail(Recipients As Integer)
Dim RecipientAddress As String
On Error GoTo SAEError
MAPISession1.DownLoadMail = False
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
If Recipients < 51 Then AdodcEmail.Recordset.MoveFirst
MAPIMessages1.Compose
MAPIMessages1.MsgSubject = EmailSubjectBox
MAPIMessages1.MsgNoteText = EmailMessageBox
For a = 1 To Recipients
MAPIMessages1.RecipIndex = a - 1
X = AdodcEmail.Recordset.Fields("FirstName"

& " " & AdodcEmail.Recordset.Fields("LastName"

MAPIMessages1.RecipDisplayName = X
MAPIMessages1.RecipAddress = AdodcEmail.Recordset.Fields("EmailURL"

MAPIMessages1.RecipType = 3 'blind carbon copy
AdodcEmail.Recordset.MoveNext
Next
MAPIMessages1.Send False
EndSAE:
MailHelpLabel.Caption = a - 1 & " Customers have been sent an Email."
If a - 1 <> Recipients Then MailHelpLabel.Caption = MailHelpLabel.Caption & " Not all of the Emails were sent. Check the [SentItems] and [Outbox]."
On Error GoTo 0
Exit Sub
SAEError:
Beep
MsgBox "Fault in sending Email", 16, "WARNING"
If MAPISession1.SessionID > 0 Then MAPISession1.SignOff
Resume EndSAE
End Sub