Mail uit Excel via Gmail

[boule]

Wie heeft hiervoor een oplossing

Ik wil vanuit een excel vba programma automatisch een mail versturen via Gmail.
Volgens de gegevens die ik heb is het gecodeerd maar ik krijg steeds een fout melding.

Binnen Gmail de security al lichter gezet.

de codering luidt als volgt :


===================================================================================
Sheets("Control").Select
afzender = Range("B14").Value
wachtwoord = Range("B15").Value
Range("B15").Value = ""

Set Config = MAil.Configuration

Config(cdoSendUsingMethod) = cdoSendUsingPort
Config(cdoSMTPServer) = "smtp.mail.com"
Config(cdoSMTPServerPort) = 465
Config(cdoSMTPAuthenticate) = cdoBasic
Config(cdoSMTPUseSSL) = True
Config(cdoSendUserName) = afzender
Config(cdoSendPassword) = wachtwoord
Config.Fields.Update

MAil.To = geadresseerde
MAil.From = Config(cdoSendUserName)
MAil.Subject = "Betreft inschrijving"
MAil.HTMLBody = "<b>EmailBody</b>"


' MAil.AddAttachment "----------"

On Error Resume Next

MAil.Send

If Err.Number <> 0 Then
MsgBox Err.Description, vbCritical, "Er is iets fout gegaan"
Exit Sub
End If
MsgBox "de email is verstuurd", vbInformation, "Verzonden"

==========================================================================

De routine loopt door tot en met de MAIL.Send maar geeft dus niet de geprogrammeerd fout boodschap.


Bij voorbaat dank

Boule

 

[OctaFish]

Zou je eerst je code kunnen opmaken met de CODE knop?

 

[boule]

ok

Dim MAil As New Message
Dim Config As Configuration
Dim afzender As String

If Sheets("Control").Visible = False Then
Sheets("Control").Visible = True
End If
Sheets("Control").Select
afzender = Range("B14").Value
' wachtwoord = Range("B15").Value
Range("B15").Value = ""

Set Config = MAil.Configuration

Config(cdoSendUsingMethod) = cdoSendUsingPort
Config(cdoSMTPServer) = "smtp.mail.com"
Config(cdoSMTPServerPort) = 465
Config(cdoSMTPAuthenticate) = cdoBasic
Config(cdoSMTPUseSSL) = True
Config(cdoSendUserName) = afzender
Config(cdoSendPassword) = wachtwoord
Config.Fields.Update

MAil.To = geadresseerde
MAil.From = Config(cdoSendUserName)
MAil.Subject = "Betreft inschrijving"
MAil.HTMLBody = "<b>EmailBody</b>"

' voor bijlage

' MAil.AddAttachment "----------"

On Error Resume Next

MAil.Send

If Err.Number <> 0 Then
MsgBox Err.Description, vbCritical, "Er is iets fout gegaan"
Exit Sub
End If
MsgBox "de email is verstuurd", vbInformation, "Verzonden"

 

[alphamax]

Ik weet niet waar je de code vandaan hebt, maar het komt op mij niet betrouwbaar over.
Zie http://www.rondebruin.nl/win/s1/cdo.htm voor de moeder van de CDO-sites.

 

[boule]

Ik heb de informatie van die site ook al gebruikt maar ook daar krijg ik dezelfde fout melding