VB spørgsmål - linieskift

Brug vbCrLf

//>Rune

Fx.

STRINGINPUT = "mailto:" & XXX & vbCrLf & "&body=Kære " & XXX & vbCrLf & " ..."

//>Rune

"Hverken & vbNewLine & eller & vbCrLf & virker..."

:-)

hmm prøvet <br> for sjov bare?....

den bliver ikke lavet som HTML... mener jeg ikke... men prøver "for sjov".

Hvilket format sende du mailen i? Hvis det er html vil <br> nok være at foretrække.

Ellers kan du prøve med en \n - det virker somme tider.

virkede ikke. Ved du hvordan jeg evt. kan benytte mig af HTML i en email via access?

hverken /n eller \n virker :-)

You dont sent how you are sening your mails! Take a look at this example and you can see that vbNewLine is used in .body


http://www.eksperten.dk/spm/580581

jeg har ingen anelse om emails fra access - så det var bare et skud i tågen :o)
Håber det lykkeds

jeg er ikke helt sikker på, hvorfor du har "&body=" med i teksten!?
Men hvis STRINGINPUT er en variabel, som bruges som Body, så BURDE dette virke:

STRINGINPUT = "mailto:" & vbnewline & "Kære " & vbnewline & " ..." & vbnewline & "Med venlig hilsen" & vbnewline & DitNavn

Ang. SendMails "Din forespørgsel","Dit emne", "din brødtekst", "C:\DinFil.txt"

"Din forespørgsel" = Hvad skal jeg bruge den til?
"C:\DinFil.txt" = Kan denne fil være ens kontaktpersonfil (min@email.dk.vcf)
(fra http://www.eksperten.dk/spm/580581)

og hvor indsætter jeg Emailen ?
Den sendes via outlook ikke ? (Det er vigtigt at min afsender email kommer med :-) )

thomas ->  "&body="  er med for at indsætte indholdet i emailen, men linie skift virker ikke. Hvis den ikke er der, kommer alt tekst ind i adressen.

Function SendMail()
Dim objOl As New Outlook.Application
Dim objPost As MailItem
Dim vedhæftet As Attachments
       
    Set objPost = objOl.CreateItem(olMailItem)
   
    Set vedhæftet = objPost.Attachments
    'vedhæftet.Add "C:\test.txt"
   
    With objPost
        .Subject = "Subject goes here"
        .To = "eksperten@santhell.dk"
        .Body = "Hej Med dig!" & vbNewLine " And some more text!"

        .Send

        '.Save       
        '.Display

    End With
 
    Set objPost = Nothing
    Set vedhæftet = Nothing
   
Exit Function

errhandler:
   
    MsgBox "ERROR: " & Err.Number & " - " & Err.Description

End Function

you dont need these lines

Set vedhæftet = objPost.Attachments
    'vedhæftet.Add "C:\test.txt"

Function SendMail()
Dim objOl As New Outlook.Application
Dim objPost As MailItem
       
    Set objPost = objOl.CreateItem(olMailItem)
       
    With objPost
        .Subject = "Subject goes here"
        .To = "eksperten@santhell.dk"
        .Body = "Hej Med dig!" & vbNewLine & " And some more text!"

        .Send

        '.Save       
        '.Display

    End With
 
    Set objPost = Nothing
    Set vedhæftet = Nothing
   
Exit Function

errhandler:
   
    MsgBox "ERROR: " & Err.Number & " - " & Err.Description

End Function

hvorfor brokker den sig over "Function SendMail()" ? (det er VB 6.3 og Access 2003)

det er "Dim objOl As New Outlook.Application" den brokker sig over sorry

jeg vil gerne vedhæfte en fil !
Set vedhæftet = objPost.Attachments
    'vedhæftet.Add "C:\test.txt"

make sure you have a reference to Outlook in (tools+Refernces menu)

Function SendMail()
Dim objOl As New Outlook.Application
Dim objPost As MailItem
Dim vedhæftet As Attachments
       
    Set objPost = objOl.CreateItem(olMailItem)
   
    Set vedhæftet = objPost.Attachments
    vedhæftet.Add "C:\test.txt"
   
    With objPost
        .Subject = "Subject goes here"
        .To = "eksperten@santhell.dk"
        .Body = "Hej Med dig!" & vbNewLine & " And some more text!"

        .Send

        '.Save       
        '.Display

    End With
 
    Set objPost = Nothing
    Set vedhæftet = Nothing
   
Exit Function

errhandler:
   
    MsgBox "ERROR: " & Err.Number & " - " & Err.Description

End Function

You can also remove these two lines (not used)

errhandler:
   
    MsgBox "ERROR: " & Err.Number & " - " & Err.Description

jeg har vist ingen relation :-(
Jeg finder den men hvordan opretter jeg en relation til Outlook ?

A Reference:

When you are looking at the code window open the Tools+References menu.
Now find Microsoft Outlook ... in the list and check the box beside it

Do you have outlook installed, if not then you cant use this method!

yes i have outlook installed :D also as Default email.

its gray :-/

got it

Det må ikke være automatisk :D
Jeg skal selv indsætte noget tekst, men skabelonen skal være udfyldt.
Fjerner jeg så bare .send ?

yes remove .send and replace with .display

perfekt.... Det virker bare præcist som det skal. Mange tak.

selv tak

Hvordan gør jeg det nu pænt i min kode ?

http://www.eksperten.dk/spm/587156