Mail via CDO tonen voor verzending

[Peter B]

In een sheet wil ik automatisch mails versturen. Google en Helpmij hebben mij geholpen tot bijgevoegd resultaat. Ik heb in een bestaand voorbeeld de optie opgenomen om te verzenden via Outlook of via CDO. O.b.v. de parameter "OutlookJaNee" wordt bepaald wat er moet gebeuren.

Wat ik graag wil is dat a la Outlook de e-mail ter controle wordt getoond voor verzending (de .display) en ik vervolgens bij voorkeur middels één klik de e-mail definitief kan verzenden. Ik krijg dit echter niet voor elkaar (en ik kan dit specifieke onderwerp niet vinden). Wie kan en wil mij verder helpen?

Zie bijgevoegde voorbeeldsheet.

Ter info. Ik heb deze optie middels CDO ingebouwd omdat ik beschik over meerdere PC's en er maar één met Outlook heeft (en ik op die ene PC de verzending via CDO niet aan de praat krijg).

 

[alphamax]

Maak een userform met een webbrowser control om de htmlcode te laten zien.
Met onderstaande code kan de de control vullen

With UserForm1.WebBrowser1
                .Navigate ("about:blank")
                .Document.Open
                .Document.Write strHTMLBody
                .Document.Close
            End With

 

[Peter B]

Die richting had ik nog niet aan gedacht. Ik heb een oplossing ingebouwd m.b.v. de suggestie en die werkt perfect!

Dank je wel.