I don't have outlook.
this is the code I tested prior to the code you sent me:
Dim sender_email, email_message, email_message2, reply_address, sender_name As String
Dim Mail As New Message
Dim Cfg As Configuration

On Error GoTo Error_Handling

Set Cfg = Mail.Configuration

'SETUP MAIL CONFIGURATION FIELDS
Cfg(cdoSendUsingMethod) = cdoSendUsingPort
Cfg(cdoSMTPServer) = "SMTP.gmail.com"
Cfg(cdoSMTPServerPort) = 465
Cfg(cdoSMTPAuthenticate) = cdoBasic
Cfg(cdoSMTPUseSSL) = True
Cfg(cdoSendUserName) = "vbatestingtest@gmail.com"
Cfg(cdoSendPassword) = "coding123$$"
Cfg.Fields.Update

'SEND EMAIL
With Mail
.From = "vbatestingtest@gmail.com"
.ReplyTo = "vbatestingtest@gmail.com"
.To = "shellreid2004@yahoo.ca"
.CC = "disegnifenice@gmail.com"
.BCC = " "
.Subject = "testing form send"
.HTMLBody = "testing"
.AddAttachment (strFileB)
' .AddAttachment (strFileD)
.Send
End With
Error_Handling:
If Err.Description <> "" Then MsgBox Err.Description
End Sub