Ik krijg het niet voor elkaar. Hij blijft de error geven :
"the transport failed to connect to the server"
dit is de code die ik gebruik:
Hij gaat via de SMTP van gmail. Instellingen qua port en inloggevens kloppen als een bus...
help!
"the transport failed to connect to the server"
dit is de code die ik gebruik:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| Dim email As New CDO.Message
Dim iCfg As New CDO.Configuration
iCfg.fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'via netwerk
iCfg.fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
iCfg.fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
iCfg.fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'normale inlog
iCfg.fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
iCfg.fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "*****@gmail.com"
iCfg.fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "*******"
iCfg.fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
iCfg.fields.Update
email.Configuration = iCfg
email.To = "*****@*******.nl"
email.From = "*****@******.nl"
email.subject = "test"
email.TextBody = "test"
email.Send |
Hij gaat via de SMTP van gmail. Instellingen qua port en inloggevens kloppen als een bus...
help!
-- Altijd blijven prutsen --