• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Geen htmlbody meer in Windows10

Status
Niet open voor verdere reacties.
C

Conseclusie

Gebruiker
Lid geworden
14 feb 2012
Berichten
358
Hallo,

Mijn organisatie is overgestapt op windows10 (wás windows7) en tevens op Office 365.
Nu blijkt dat een macro die een mail klaarzet in Outlook niet meer naar wens werkt; de inhoud (strbody) verschijnt namelijk niet meer in de mail.
Emailadres geadresseerde, cc, onderwerp en ook eventuele bijlages worden wél correct in de mail gezet, maar de inhoud blijft dus helemaal leeg.
Er verschijnt ook geen foutmelding.
Iemand enig idee wat dit probleem veroorzaakt?

Code: 
Private Sub CommandButton1_Click()
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

'Inleiding:
Regel01 = "TekstRegel01"
Regel02 = "TekstRegel02"
Regel03 = "TekstRegel03"
Regel04 = "TekstRegel04"
Regel05 = "TekstRegel05"

'Onderwerp-string samenstellen:
Onderwerp = "Storingsmelding: "

strbody = "<html>" & _
"<font face=Arial><font size=2>" & _
"<B>" & Regel01 & "</B><br><br>" & _
"<HR>" & Regel02 & "<br>" & _
"<HR>" & Regel03 & "<br>" & _
Regel04 & "<br>" & _
"<HR>" & Regel05 & "<br>" & _
"</html>"

Application.DisplayAlerts = False

On Error Resume Next

With CreateObject("Outlook.Application").CreateItem(0)
    .Display
    .To = "test@helpmij.nl"
    .CC = ""
    .BCC = ""
    .Subject = Onderwerp
    .HTMLBody = strbody & .HTMLBody
    .Display
End With

Unload Me
End Sub
 

Bijlagen

Laatst bewerkt:
Doet het hier prima met Windows 10 en Office 365:
Knipsel.JPG

Haal die overbodige On Error Resume Next en Application.DisplayAlerts = False er eens uit.
Staat in Outlook de opmaak wel standaard op HTML?
 
Laatst bewerkt:
On Error Resume Next verwijderen geeft hetzelfde resultaat helaas.
En de opmaak in Outlook staat inderdaad standaard op HTML. Ook in het aangemaakte bericht staat de opmaak op HTML (...ook maar even gecontroleerd).
Het feit dat het bij jou wel correct werkt zal dus betekenen dat er met de code weinig mis is, maar dat het waarschijnlijk om één of andere instelling gaat. Maar welke??

Edit: het verwijderen van die On Error resulteert wél in een concrete foutmelding (maar helaas wel een vage): "Door de toepassing of door object gedef fout". Zie plaatje
 

Bijlagen

Laatst bewerkt:
Door de good old Trail&Error-methode is m'n probleem zowaar opgelost!
Ik heb het volgende aangepast:
Code: 
.HTMLBody = strbody & .HTMLBody
vervangen door:
Code: 
.HTMLBody = strbody

Dank voor het meedenken edmoor; het verwijderen van die On Error heeft toch voor de doorbraak gezorgd. :-)
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan