Mail wordt niet verstuurd vanuit Excel na .display en druk op Verzenden

[wtktje]

Goedendag,

Ik loop tegen een probleempje aan.

Middels onderstaande code stel ik in Excel een mailtje op om deze te verzenden via Outlook.

Private Sub CommandButton1_Click()
    Dim Emailapplication As Object
    Dim Emailitem As Object
    
    Set Emailapplication = CreateObject("Outlook.application")
    Set Emailitem = Emailapplication.createitem(0)
    
    With Emailitem
        .To = "pietje@familie_puk.nl"
'        .cc = cc
'        .bcc = bcc
        .Subject = "mail versturen vanuit Excel"
        .HTMLbody = "Testmelding"
'        .send
        .display
    End With
    
    Emailapplication = Nothing
    Emailitem = Nothing
End Sub

Omdat ik de mail voordat ik hem definitief verstuur nog graag wil controleren, kies ik voor .display IPV .send. Tot zover gaat het goed. Mailtje wordt getoond en kan, na eventueel aanpassen verstuurd worden middels de knop 'Verzenden'. Echter komt het mailtje nooit aan. Ik krijg ook geen foutmelding.
Wanneer ik hetzelfde doe met .send IPV .display, dan komt het mailtje wel aan.

Bovendien, wanneer ik na de mislukte verzending na .display hetzelfde mailtje middels .send verstuur, komt het mailtje 2 keer binnen.

Wat doe ik, of gaat er fout?

alle hulp in deze is welkom

 

[AHulpje]

Komt je mailtje wel in Verzonden items te staan?
Gaat bij mij goed, maar je zou wel een foutmelding moeten krijgen op:

    Emailapplication = Nothing
    Emailitem = Nothing

moet namelijk zijn:

    Set Emailapplication = Nothing
    Set Emailitem = Nothing

 

[wtktje]

Dank voor je reactie.

1. Nee, de mailtjes komen niet in de Verzonden box
2. Inderdaad, foutje van mijn kant. Maar dat was niet de oplossing helaas.

Het gekke is dat dit fenomeen zich voordoet op mijn werk (Office365) , maar ook thuis (Office 2021).

Hopelijk komt er iemand met dé oplossing.

 

[edmoor]

Als je een mail maakt in Outlook zelf en op Verzenden klikt, wordt hij dan wel direct verzonden en door de geadresseerde ontvangen?

 

[wtktje]

Als je een mail maakt in Outlook zelf en op Verzenden klikt, wordt hij dan wel direct verzonden en door de geadresseerde ontvangen?

Klopt. Met het verzenden (en aan de andere kant ontvangen) van mailtjes direct vanuit Outlook is niets mis.

 

[edmoor]

Probeerseltje.
Zet de .Display eens op de regel boven .To in plaats van boven de End With.

 

[AHulpje]

En als je Outlook start voordat je de mail verstuurt?

 

[wtktje]

Probeerseltje.
Zet de .Display eens op de regel boven .To in plaats van boven de End With.

Dat heb ik net geprobeerd, maar geen resultaat. Daarna weer eens met .send verzonden, en topen kwamen er twee mailtjes binnen. het is net alsof de mailtjes verzonden met .display in een buffertje komen te staan of zo?!

 

[wtktje]

En als je Outlook start voordat je de mail verstuurt?

Toevallig staat outlook open (ben nu op mijn werk) maar dat is eigenlijk niet de bedoeling. Alles zou direct via Excel verzonden moeten worden.

 

[edmoor]

Is dat probleem ook zo als je .Body gebruikt in plaats van .HTMLbody?

 

[wtktje]

Is dat probleem ook zo als je .Body gebruikt in plaats van .HTMLbody?

Ik sta op het punt naar huis te gaan. Daar zal ik dat eens proberen. Bedankt zover in ieder geval.

 

[JEC.]

Hoe zien je macro settings eruit in je trust center van outlook?

File --> opties --> trust center --> trust center settings --> macro settings

 

[wtktje]

Ik sta op het punt naar huis te gaan. Daar zal ik dat eens proberen. Bedankt zover in ieder geval.

Is dat probleem ook zo als je .Body gebruikt in plaats van .HTMLbody?

Goedemorgen,
Gisteren thuis geen tijd meer gehad, maar heb deze optie zojuist ook eens geprobeerd, met dezelfde resultaten. Mailtje opgebouwd zonder .HTMLBody, maar met gewoon .body via .Display komt niet binnen, maar wanneer ik daarna met .Send hetzelfde mailtje wederom verstuur krijg ik beide mailtjes tegelijk binnen.

 

[wtktje]

Hoe zien je macro settings eruit in je trust center van outlook?

File --> opties --> trust center --> trust center settings --> macro settings

Niets houdt het tegen zo te zien