Fout verzenden

Status
Niet open voor verdere reacties.
O

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

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
 
Wat heb je al gevonden over die foutcode?
080040217
 
Heb nogmaals op Internet gekeken maar vind niks bruikbaars
Er moet automatisch iets veranderd zijn in de instellingen van Google
Maar wat??
 
AccessGuru
Sorry , ik weet niet zo veel van VBA
.Display
Nooit van gehoord
Hoe moet ik dat toepassen. Waar in te voegen voor .Send zetten?
Wat gebeurd er dan?
 
Aar/AccessGuru

Zou dit de mogelijke oorzaak kunnen zijn?
Wat moet ik nu doen?
Ben niet zo thuis op de PC

Minder goed beveiligde apps en je Google-account
Google biedt vanaf 30 mei 2022 geen support meer voor het gebruik van apps of apparaten van derden die je vragen om in te loggen op je Google-account met alleen je gebruikersnaam en wachtwoord. We doen dit om je account te beschermen.
Belangrijk: Deze deadline is niet van toepassing op Google Workspace- of Google Cloud Identity-klanten. De datum waarop dit voor deze klanten ingaat wordt op een later tijdstip aangekondigd in de Workspace-blog.
Lees verder voor meer informatie.
Als een app of site niet voldoet aan onze beveiligingsnormen, kan Google iedereen blokkeren die via die app of site probeert in te loggen op je account. Via minder goed beveiligde apps kunnen hackers makkelijker toegang tot je account krijgen. Door logins via deze apps te blokkeren, kan je account beter worden beveiligd.
 
Kun je niet via outlook werken?
 
Per 30 mei 2022 staat Google geen CDO meer toe zoals je al gelezen hebt.
Dit, omdat CDO geen TLS ondersteund.
Eerder kon je dan in Gmail het gebruik van minder veilge apps aan zetten maar die mogelijkheid is er nu niet meer.

Gebruik dus Outlook.
Of kies voor een andere SMTP server.
 
Laatst bewerkt:
Edmoor,

Als ik met een VBA-code een bestand ga versturen met outlook
moet ik dan een Outlookaccount aanmaken , heb dat namelijk nog niet
Of is dat niet nodig omdat outlook standaard in Office zit?

Jaap
 
Uiteraard heb je dan een account in Outlook nodig.
 
Ik heb dit gevonden op internet
Het werkt goed
Zie echter ook talloze oplossingen met DIM erbij
Is dat noodzakelijk

Vriendelijke groet Jaap


Code: 
With CreateObject("Outlook.Application").CreateItem(0)
      .To = "Adres"
      .CC = "Adres"
      .BCC = "Adres"
      .Subject = "Onderwerp"
      .Attachments.Add “Te versturen exelbestand”
      .Body = "Groetjes Jaap
     .Send
     .End With
 
Dim is alleen nodig als je Option Explicit aan hebt staan.

Maar die .End With is uiteraard fout.
 
Laatst bewerkt:
Stom stom,,,,,,,

Stond er ook niet , had ik er speciaal bijgezet die punt
Nogmaals bedankt voor alle hulp
Probleem opgelost
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan