mail trought smtp with attached file

Hi all,
I try to find solution to send mail with macros via SMTP

Private Sub CommandButton1_Click()
Dim Mail As New Message

Dim Config As Configuration: Set Config = Mail.Configuration

Config(cdoSendUsingMethod) = cdoSendUsingPort
Config(cdoSMTPServer) = “smtp.gmail.com”
Config(cdoSMTPServerPort) = 25
Config(cdoSMTPAuthenticate) = cdoBasic
Config(cdoSMTPUseSSL) = True
Config(cdoSendUserName) = “youremail@gmail.com”
Config(cdoSendPassword) = “yourgmailpassword”
Config.Fields.Update

Mail.To = “your_recipient@whereever.com”
Mail.From = Config(cdoSendUserName)
Mail.Subject = “Subject from VBA”
Mail.HTMLBody = “Body from VBA”

Mail.Send
MsgBox “Sent”

End Sub

how to add attachment?
thank you in advance!

try this

Mail.Addattachment <filename with path>

this assumes the file is saved somewhere....

many thanks!!!!

Glad I could help

If this has been completed to your satisfaction, please set the thread to Solved...If you feel I deserve an increase in my reputation, feel free to click on the star in the lower left of the thread. Remember, someday when you help somebody they may add to your rep points, and it could be me...just a thought...

I'm sorry that I disturb you again
but I have "User-defined type not defined" error when trying to send e-mail immediately in first row

Dim Mail As New Message
Dim Config As Configuration: Set Config = Mail.Configuration

Config(cdoSendUsingMethod) = 2 ' cdoSendUsingPort
Config(cdoSMTPServer) = "bla-bla"                
Config(cdoSMTPServerPort) = 25
Config(cdoSMTPConnectionTimeout) = 30
Config(cdoSMTPAuthenticate) = cdoAnonymous
........

finally I have to send mail without creation new mail throught Outlook

in additional I use Excel 2013

this is how I do it...

Sub SendEmail()

    Dim EmailTo As String, FileDir As String
    Dim objmessage As Object
    Dim i As Integer

    EmailTo = "billyjoejimbob@abc.com"

    Set objmessage = CreateObject("CDO.Message")
    objmessage.Subject = "Place Subject data here"
    objmessage.From = "me@bfd.com"
    objmessage.To = "everybody@intheworld.com"
    
    objmessage.addattachment "Path\filename"


    objmessage.TextBody = Body
    objmessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    objmessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp server name here"
    objmessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    objmessage.Configuration.Fields.Update
    objmessage.Send
    
End Sub

yes, this is for 2010....this will also directly send through the SMTP server...

Thank you, judgeh59!!
It's very useful for me!

the last question

  EmailTo = "billyjoejimbob@abc.com"

    Set objmessage = CreateObject("CDO.Message")
    objmessage.Subject = "Place Subject data here"
    objmessage.From = "me@bfd.com"
    objmessage.To = "everybody@intheworld.com"

whats mean "EmailTo"?

that's who you are emailing to....

Yes, of course
I asked you because are twice EmailTo and objmessage.To
Thank you again !!
All is perfect!