Single Line Spacing - Outlook + Excel

[mathijsderuiter]

Beste mensen,

Ik probeer een mail te laten versturen met Outlook vanuit Excel.

Echter, wanneer ik dit doe krijg ik de tekst die ik in de VBA-Code zet in Arial 10 en de tekst die ik zelf erbij typ wordt Times New Roman....
Als tweede, de regelafstand is ook standaard groter dan normaal.

Kan iemand me helpen dit te voorkomen?

      Err.Number = 0
      On Error Resume Next
        Set OutApp = GetObject(, "Outlook.Application")
        If Err.Number > 0 Then
        Set OutApp = CreateObject("Outlook.Application")
 
    Err.Clear
    End If
    On Error GoTo 0
    OutApp.Session.Logon
    
    ' Tekst in de mail
    stbody = Sheets("Output Filiaal").Range("b3") & "," & Range("I82") & vbNewLine & vbNewLine _

    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .to = Sheets("Output Filiaal").Range("B6").Text ' Aan
        .CC = "@coop.nl;" ' CC
        .BCC = "" ' BCC
        .ReadReceiptRequested = False ' Leesbevestiging (False/True)
        .Subject = "Terugkoppeling week " & Sheets("Output Filiaal").Range("k5") ' Onderwerp
        .Body = stbody ' Tekst in de mail, verwijst naar hierboven
     
        .Attachments.Add filename
        .Display
    End With
    Set OutMail = Nothing
    Set OutApp = Nothing

 

[snb]

Gebeurt dat ook als je 'met de hand' een bericht met Outlook aanmaakt ?

 

[mathijsderuiter]

Gebeurt dat ook als je 'met de hand' een bericht met Outlook aanmaakt ?

Gebeurt niet als ik een nieuw bericht in Outlook aanmaak.

Echter, ik heb zojuist een oplossing gevonden:

.HTMLBody = "<font face=arial><font size=2>" & stbody & "</size></font>" & Signature

Nu loop ik (opnieuw) tegen een probleem aan: de plaatjes in de handtekening worden niet weergegeven...

 

[alphamax]

misschien staat hier=http://www.rondebruin.nl/mail/folder3/signature.htm de oplossing