Lave knap til afsendelse af email på dataadgangsside

er det ikke bare at lave en knap med mailto: funktion ??

Hvis du har outlook, så se om du kan få dette til at virke:

Private Sub Command0_Click()
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 = "The subject"
        .Body = "This is the body of the mail - http://www.eksperten.dk"
        .FlagStatus = olFlagMarked
        '.Attachments.Add "Any attachments"
       
        Set Receiver = .Recipients.Add(me.NavnPåFeltMedEmailAdressse)
       
        If Not Receiver.Resolve Then
            .Display
        Else
            .Send
        End If
    End With
   
    Set Item = Nothing

           
End Sub

Det er en gammel kode af Terry's!~)

Hej

Spine- det er jo det jeg ikke ved hvordan jeg gør :)

Spg- hvor sætter jeg den kode ind henne?

(Husk at det er på en dataadgangsside det skal virke, ikke i en formular)

Eksemplet er på en knap, som hedder Command0!~)

du bliver nødtil at forklare det lidt mere, jeg fatter ikke så meget.

Du åbner din database mens du holder shift nede. Så åbner du din dataadgangsside i designvisning. Herefter trækker du en knap fra værktøjslinien og hen hvor den skal sidde. Så trykker du cancel til guiden og højreklikker i stedet på knappen og vælger generer hændelses et eller andet. Her vælger du den nederste mulighed. Så åbner vba, og cursor står mellem en private sub og en end sub linie. Her paster du koden ind, husk at der selvfølgelig ikke skal være dobbelte "sub linier"!~)

Hov, du skal selvfølgelig også indsætte et tekstfelt på siden, som folk kan skrive e-mail adressen i. Det er så dette felt du refererer til i koden!~)

jeg får ikke den mulighed når jeg højreklikker

mailen skal sendes til 2-3 faste modtagere

det virker ikke på en dataadgangsside, jeg har lige prøvet i en formular, der får jeg den mulighed som du beskriver.

Jeg må indrømme jeg ikke rigtig har erfaring med dataadgangssider (endnu!~), men jeg kan se at du fra værktøjslinien kan trække et hyperlink over på siden og vælge e-mail adresser. Her kan du skrive din standardmeddelse om at der er opdateret og indsætte email adresser adskilt af kommaer!~)

Det er nok mit bedste bud p.t.....

ok, jeg prøver på mandag når jeg har min pc igen.

God weekend

I lige måde!~)

hej spg,

Det er sådan en funktion jeg skal bruge. Men ved du om man kan få det ind i en knap istedet for at der står en tekst.

Jeg fandt ud af det, der er mulighed for at lave hyperlink med billede. så den bruger jeg.

Tak for hjælpen

Sonos

!~)