In body van mail, 1 excelblad mailen

[wieter]

In bijgevoegd bestand, gebruik ik de alom gekende code van Ron Debruin.
Toch loopt er iets niet helemaal juist.
Als ik op de knop[Mailen] druk, verschijnt onder in de taakbalk: het outlook-icoon.
Pas als ik hierop klik verschijnt de mail-display.

Echter, als ik eerst de code open, en terug sluit, en dan op de knop [MAILEN] druk, verschijnt het mail-display direct.
Wie kent de oorzaak?

 

[edmoor]

Er heeft ooit een fout in het gebruik van HTMLBody gezeten.
Je hebt nu .Display als laatste staan. Laat dat zo maar zet .Display tevens een keer voor de regel met HTMLBody, dat 'ie er 2x in staat dus.
Ik ben benieuwd

 

[wieter]

Bedankt voor je reactie, Ed
Maar je voorstel geeft niet de oplossing, spijtig.
Grtn, wieter

 

[HSV]

Geen probleem hier.
Het venster opent direct.

 

[wieter]

Zonder eerst de VBA geopend te hebben, Harry?
ps. Bij mij opent het venster ook direct, maar het zit verborgen achter de excel.

 

[HSV]

Ja, werkt hier prima.
Excel even helemaal afgesloten en opnieuw getest.
Ook die tweede test ging goed.

Edit: nee, op voorgrond.

 

[wieter]

Raar, ik moet eerst vba openen en sluiten.
Dan verschijnt het outlook-venster ook direct.
Zou het aan de instellingen van outlook kunnen liggen?

ps. Als ik in de code de : .Display
Vervang door : .Send
werkt er niets.

 

[HSV]

Niet als je een mail met 'To' naar jezelf struurt met gebruik van .send?

 

[wieter]

Nee Harry, lukt niet.
Met "TO" mail naar mezelf, en met : .Send
Komt ook niet bij "Verzonden mails"

 

[edmoor]

Geen idee wat de oorzaak zou kunnen zijn. Ook hier werkt het gewoon goed.
Zet dit eens onder die laatste .Display:
OutApp.Visible = True

 

[HSV]

Haal die 'on error resume next' eens uit de code.
Krijg je een foutmelding over 'kan bibliotheek niet vinden?
Kijk dan bij 'references of verwijzingen' naar "Missing".

 

[wieter]

Daar het bij jullie wel perfect werkt, moet het hier aan één of andere instelling liggen.
Aan Ron Debruin zal het ZEKER niet liggen.

 

[HSV]

Voer #11 eens uit.

 

[wieter]

De On Error..... weg, geeft hetzelfde resultaat.
De Outlook opent zich achter de Excel.

 

[HSV]

En met .send?

 

[edmoor]

En resultaat van #10?

 

[wieter]

Hoera Harry!
On Error resume next weg, en dan met .Send lukt het.
@ Ed
Met OutApp.Visible = True gaf geen verandering in het resultaat.

 

[wieter]

Ed en Harry,
Bedankt voor jullie inzet.
Ik ben weer fijn geholpen.
Groeten, wieter

 

[HSV]

Ik had eerder verwacht dat je een foutmelding zou krijgen wieter, ...maar.. toe maar; het werkt.

Succes.

 

[wieter]

Ja Harry, HET WERKT.
Later heb ik ook ondervonden dat die : "On Error resume Next" niet weg moet.
Ook dan werkt het met .Send
Nogmaals bedankt.