Send email til \"\" ved klik

Du kan evt. gå ind på http://www.access.hugopedersen.dk/ og se i mit email modul.  Så tror jeg du kan lave det ( hvis du da bruger OutLook - IKKE EXPRESS )

Dim OutL As Outlook.Application
Dim Item As MailItem
Dim Receiver As Recipient

    Set OutL = New Outlook.Application

    Set Item = OutL.CreateItem(olMailItem)
   
    With Item
        .Subject = \"Susy Update on: \" & 3072 & \" - \" & \"Open\"
        .Body = \"http://www.eksperten.dk\"
        .FlagStatus = olFlagMarked
        \'.Attachments.Add \"Any attachments\"
       
        Set Receiver = .Recipients.Add(\"WhoTo\")
       
        If Not Receiver.Resolve Then
            .Display
        Else
            .Send
        End If
    End With
   
    Set Item = Nothing

           

To do this you need a reference to Outlook in your project (references)

.body is the \"indhold\" you could set this to the value of a field on your form

.Body = me.minIndhold

hvor skal jeg skrive hvad, og hvordan?
Undskyld men jeg er lidt i tvivl :-)

OK.
On the buttons On Click event you copy and then modify the code.

You can set the .subject to say \"test\"
.Body to a field on the form where you have entered \"indhold\"
and the .recipients.Add(\"\") is the actual Email addrese.


To make a reference to Outlook you need to be in Code View and then in the Tools+References menu find a refrence to Outlook.

ok. i will try that, bout why are you writing anything in english

I am Englsih :o)

Englsih  = English

ok, but in that case, how du you read what i am writing in danish

I have been in DK for a few years now so can read, and also write danish. But I am lazy and its much quicker for me to write in English.

mange tak :o)