VBA / Makro - Indsætte aktivt link til hjemmeside i email

Indsætte aktivt link til hjemmeside i email

Udskrevet fra: Dansk Access Forum
Kategori: Hjælp til Access
Forum navn: VBA / Makro
Forum beskrivelse: Spørgsmål vedr. den programmeringsmæssige del af Access
Web-adresse: https://www.accessforum.dk/forum_posts.asp?TID=62
Udskrevet den: 02-05-2024 kl. 00:50

Emne: Indsætte aktivt link til hjemmeside i email

Besked fra: Carsten
Emne: Indsætte aktivt link til hjemmeside i email
Posteringsdato: 06-03-2015 kl. 09:57

Hej!

Jeg forsøger ihærdigt at få sat et aktivt link ind i en email genereret med vba fra access - men min vba genkender ikke .htmlbody = body.

Se nedenstående kode.

Nogen ideer til hvad jeg gør galt!

Private Sub Kommandoknap7_Click()

Dim MyDB As DAO.Database
Dim rsEmail As DAO.Recordset
Dim sToName As String
Dim sSubject As String
Dim sMessageBody As String

Set MyDB = CurrentDb()
Set rsEmail = MyDB.OpenRecordset("QryInfo")

With rsEmail

      '.HTMLBody = sMessageBody
        .MoveFirst

       Do Until rsEmail.EOF
            If IsNull(.Fields(1)) = False Then
                sToName = .Fields(1)
                sSubject = "Nyhedsmail fra XXX"


               'sMessageBody = "<a href=http://www.google.dk>XXX</a>"

    sMessageBody = "Hej! " & .Fields(3) & vbNewLine & vbNewLine & .Fields(4) & vbNewLine & vbNewLine & .Fields(5) & vbNewLine & vbNewLine & " I er meget velkommen til at kontakte os hvis I er interesserede i yderligere information " & vbNewLine & vbNewLine & "Med Venlig Hilsen" & vbNewLine & vbNewLine & "XXX" & vbNewLine & "XXX" & vbNewLine & "XXX" & vbNewLine & vbNewLine & vbNewLine & vbNewLine & "XXX" _
   & vbNewLine & vbNewLine & .Fields(6)

   ' Fields (6) indeholder hjemmesideadressen


DoCmd.SendObject acSendNoObject, , , _
                    sToName, , , sSubject, sMessageBody, True, True



            End If
            .MoveNext
        Loop
End With

Set MyDB = Nothing
Set rsEmail = Nothing

End Sub

Svar:

Besked fra: hkh
Posteringsdato: 06-03-2015 kl. 14:50

Benytter du Outlook.
Har du slået Oulook object libray til?

-------------
Hans

Besked fra: Carsten
Posteringsdato: 15-03-2015 kl. 09:45

Hej - ja mailen bliver genereret i Outlook - men ikke som html

Besked fra: TheSmileyCoder
Posteringsdato: 16-03-2015 kl. 15:24

Når du benytter Docmd.Sendobject kan du kun bruge plain text, og ergo kan du ikke formatere et link.

Du kan læse mere om begrænsningerne for Sendobject http://www.granite.ab.ca/access/email/sendobject.htm" rel="nofollow - her .

Hvis du skal bruge mere avanceret formatering er du nødt til at bruge Outlook Automation.

-------------
TheSmileyCoder // Anders Ebro, Access MVP
Kom til 1 dags Access Seminar i Hellerup 2 Juni 2015
Læs mere og registrer her:
https://discoverthepowerofyourdata.com