• 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.

Lettertype aanpassen in mailbody

  • Onderwerp starter Onderwerp starter vrouw
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

vrouw

Terugkerende gebruiker
Lid geworden
27 mrt 2010
Berichten
1.525
Ik heb onderstaande code in een macro staan dat in de mail terecht komt die ik verstuur,

Nu zou ik graag willen dat het lettertype groter word want standaard is dit te klein.
Ik krijg het maar niet voor elkaar met de voorbeelden die ik vind met Google.
Volgens mij moet er ergens .HTMLBody = "<BODY style=font-size:11pt;font-family:Verdana> komen te staan.

Code:
.HTMLBody = "<html><body>Beste meneer,</P><P>" _
 & "Er staat in de rapportage geen of een onjuist E-mail adres.</P>" _
& "Wilt je ons hierover informeren wanneer dit is aangepast?<p>" _
& "  met vriendelijk groet,</p>" _
& "  </p><p>" _
& RangetoHTML(rng) & ""
 
Opzetje:

Code:
Sub Mailing()
    Dim xOutApp As Object
    Dim xOutMail As Object
    Dim xMailBody As String
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)
    xMailBody = "<p style='color:rgb(33,38,227);font-family:calibri;font-size:72'>Font Size Test</font></p>"
    On Error Resume Next
    With xOutMail
        .To = "Email Address"
        .CC = ""
        .BCC = ""
        .Subject = "Test tekstgrootte"
        .htmlBody = xMailBody
        .Display
    End With
    On Error GoTo 0
    Set xOutMail = Nothing
    Set xOutApp = Nothing
End Sub
 
En zo strip je zo'n code.
Code:
Sub Mailing()
  With CreateObject("Outlook.Application").CreateItem(0)
        .To = "Email Address"
        .Subject = "Test tekstgrootte"
        .htmlBody = "<p style='color:rgb(33,38,227);font-family:calibri;font-size:72'>Font Size Test</font></p>"
        .Display 
       '.send
    End With
End Sub
 
Super bedankt alle, hier kan ik weer mee ui de voeten:thumb:
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan