Oude leerling
Gebruiker
- Lid geworden
- 30 aug 2010
- Berichten
- 554
Geacht Forum,
Met onderstaande code verzend ik iedere week een bericht
Gaat altijd goed!!
Nu blijf hij ineens steken bij .Sent en verschijnt er een foutmelding dat er geen verbinding meer gemaakt kan worden met de server
Foutcode 080040217
Geen idee hoe dit op te lossen
Kunt u mij verder helpen
Vriendelijke groet , Jaap
Met onderstaande code verzend ik iedere week een bericht
Gaat altijd goed!!
Nu blijf hij ineens steken bij .Sent en verschijnt er een foutmelding dat er geen verbinding meer gemaakt kan worden met de server
Foutcode 080040217
Geen idee hoe dit op te lossen
Kunt u mij verder helpen
Code:
With New CDO.Message
.Configuration(cdoSendUsingMethod) = 2
.Configuration(cdoSMTPServer) = "smtp.gmail.com"
.Configuration(cdoSMTPServerPort) = 465
.Configuration(cdoSMTPusessl) = True
.Configuration(cdoSMTPconnectiontimeout) = 60
.Configuration(cdoSMTPauthenticate) = 1
.Configuration(cdosendusername) = "Afzender@gmail.com"
.Configuration(cdosendpassword) = "paswoord"
.Configuration.Fields.Update
.addattachment ThisWorkbook.Path & "\Exelbestand ".xls"
'.To = "adres"
.From = "Afzender@gmail.com"
.Subject = "Bericht"
.Send
End With
Vriendelijke groet , Jaap