Opgelost Een e-mail versturen met Gmail vanuit Exel/VBA d.m.v. CDO-code

[Oude leerling]

Geacht forum,
Tot ongeveer Mei 2022 kon ik op bovengenoemde manier , zie titel , mails versturen
Daarna was het over . Contact met de server was niet meer mogelijk
Het verhaal was dat Google gestopt was met het ondersteunen
Mijn vraag:
Is er misschien ondertussen een oplossing gevonden voor dit probleem?
Zo ja , kunt u mij dan vertellen hoe dit te realiseren
Ik zou het graag weer op deze manier willen verzenden

Vriendelijke groet , Jaap

 

[PhilJ]

Is dit iets?

 

[AHulpje]

Via Outlook:

Sub OutlookMail()
    With CreateObject("Outlook.Application").CreateItem(0)
        .To = "íemand@iemand.nl"
        .CC = ""
        .BCC = ""
        .Subject = "Onderwerp"
        .Body = "Dit is een test"
        '.Attachments.Add ("C:\test.txt")
        '.Display
        .Send
    End With
End Sub

 

[Oude leerling]

Dankjewel voor uw reactie
Op mijn computer heb ik een Office zonder Outlook
Vandaar dus of er misschien ondertussen een oplossing gevonden was met CDO

 

[edmoor]

CDO wordt vrijwel nergens meer toegestaan omdat de beveiliging er van niet meer voldoet aan de huidige vereisten.
Zorg voor een Office met Oulook, dan kan je het voorbeeld van AHulpje gebruiken.

 

[Oude leerling]

Zal toch maar een nieuwe Office gaan aanschaffen
Bedankt voor de Outlook code

 

[edmoor]

Deze bijvoorbeeld:

Microsoft Office 2019 incl. Trainingen

Maak kennis met de Microsoft Office 2019 inclusief Trainingen, de ultieme oplossing voor thuisgebruik en zelfstandige ondernemers. Met de volledig geïnstalleerde versies van Outlook, Word, Excel, PowerPoint en OneNote beschik je over de essentiële tools om je productiviteit naar nieuwe hoogten...

webshop.telegraaf.nl

 

[Oude leerling]

Dankjewel