Enter in bodytekst

[caffie]

Ik heb een VB code waarbij je een mailtje verstuur


maar in de body tekst wil ik graag de regel afbreken met een harde return
maar dat lukt me niet met " vbCrLf "

Wie heeft er een alternatief

Option Explicit

Public outApp, OutMail, olMailItem
Public rij As Long, bestandsnaam$, bodytekst$, emailadres$, filenaam$, naam$, onderwerp$, Hlink, LOT$

Sub sendmail_1()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

'   overige outlookgegevens
    onderwerp = "Vandaag " & Date

'   bodytekst
    
    For rij = 60 To Sheets(1).Range("F65500").End(xlUp).Row
        Sheets(1).Cells(rij, 6).Select
        If Sheets(1).Cells(rij, 6) <> "" Then
        Exit Sub
        End If
    Next rij

bodytekst = "Eerste regel" & vbCrLf & "  tweede regel "  & vbCrLf & " Derde regel 3  "

'   maak attachment en verstuur mail
    On Error Resume Next
    emailadres = ""
    For rij = 4 To 7
        Sheets(1).Cells(rij, 1).Select
        If Sheets(1).Cells(rij, 1) <> "" Then
            emailadres = emailadres & Sheets(1).Cells(rij, 1) & ";"
        End If
    Next rij
        Hlink = "mailto:" & emailadres & "?"
        Hlink = Hlink & "subject=" & onderwerp & "&"
        Hlink = Hlink & "body=" & bodytekst
        ActiveWorkbook.FollowHyperlink Hlink
        Application.Wait (Now + TimeValue("0:00:02"))

    On Error GoTo 0
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

 

[Wigi]

Wie heeft er een alternatief

<br />

opnemen?

 

[caffie]

<br />

opnemen?

ik heb het even geprobeerd maar het werkt niet
toch bedankt voor je hulp

 

[paulva]

chr(10) misschien?

 

[richard1970]

Hoi, Ik neem aan dat je de helpfile al hebt geraadpleegt?

[B]Constante - Equivalent - Beschrijving [/B]
vbCrLf - Chr(13) + Chr(10) - Regelterugloop/regelinvoer- combinatie 
vbCr - Chr(13) - Regelterugloopteken 
vbLf - Chr(10) - Regelinvoerteken 
vbNewLine - Chr(13) + Chr(10) of, op de Macintosh, Chr(13) - Platformafhankelijk nieuwe regelteken; welke van toepassing is op het huidige platform 
vbNullChar - Chr(0) - Teken met waarde 0 
vbNullString - tekenreeks met waarde 0 - Niet hetzelfde als een tekenreeks zonder gegevens (""); wordt gebruikt voor het oproepen van externe procedures 
vbObjectError - -2147221504 - Door de gebruiker gedefinieerde foutnummers moeten groter zijn dan deze waarde. Bijvoorbeeld:
Err.Raise Number = vbObjectError + 1000 
vbTab - Chr(9) - Tabteken 
vbBack - Chr(8) - Backspace-teken

Groeten,
Richard

 

[robdgr]

Met de macrorecorder kom ik op deze:

bodytekst = "Eerste regel" & Chr(10) &  "  tweede regel "  & Chr(10) &  " Derde regel 3  "