Avatar billede nmk Nybegynder
19. juni 2006 - 12:33 Der er 20 kommentarer og
1 løsning

links i mails fra Access

Hej

Jeg sender en masse emails fra Access, men kan ikke finde ud af at sætte links ind i mailen automatisk. Jeg vil gerne hente et link fra feltet link i tabellen tblTidsskrifter og placere det i emailens body.
Jeg bruger følgende til at sende mails:

Private Sub Kommandoknap8_Click()

Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim strSQL As String
Dim strModtager As String
Dim intTidsskrift

Set conn = CurrentProject.Connection
Set rst = New ADODB.Recordset

intTidsskrift = Me!tidsskrift
If Len(intTidsskrift) < 1 Or IsNull(intTidsskrift) Then
intTidsskrift = 0
End If

strSQL = "SELECT tblemail.[email]" & _
            "FROM tblemail " & _
            "WHERE tblemail.[tidsskrift]='" & intTidsskrift & "';"




rst.Open strSQL, conn


If rst.BOF And rst.EOF Then

Else
    Do Until rst.EOF
        strModtager = strModtager & rst("email") & ";"
        rst.MoveNext
    Loop
End If

rst.Close
Set rst = Nothing
conn.Close
Set conn = Nothing

If Len(strModtager) > 1 Then

Application.FollowHyperlink "mailto:" & strModtager & "?subject=" & intTidsskrift & " &body=Følg linket for at se den nyeste indholdsfortegnelse fra " & intTidsskrift & "", , True

End If

End Sub
Avatar billede terry Ekspert
19. juni 2006 - 13:17 #1
doesnt it work as it is? What is the problem you are having?
Avatar billede terry Ekspert
19. juni 2006 - 13:21 #2
try this

intTidsskrift = vbCrLf & intTidsskrift &vbCrLf

then

Application.FollowHyperlink "mailto:" & strModtager & "?subject=" & intTidsskrift & " &body=Følg linket for at se den nyeste indholdsfortegnelse fra " & intTidsskrift & "", , True
Avatar billede terry Ekspert
19. juni 2006 - 13:21 #3
.
Avatar billede terry Ekspert
19. juni 2006 - 13:27 #4
actually you mihgt find that adding
http:// to the hyperlink helps ifyoi dont already have it.

Application.FollowHyperlink "mailto:" & strModtager & "?subject=" & intTidsskrift & " &body=Følg linket for at se den nyeste indholdsfortegnelse fra " & "http://" & intTidsskrift & "", , True
Avatar billede nmk Nybegynder
19. juni 2006 - 13:51 #5
Det er ikke Tidsskrift der skal være link. Jeg skal hente linket fra tabellen tblTidsskrift, feltet hedder link.
Eksempel:
Følg linket for at se den nyeste indholdsfortegnelse fra Kvinder, køn og forskning
<her skal linket stå>
Avatar billede terry Ekspert
19. juni 2006 - 14:07 #6
you can use dlookup to do that

dlookup("link", "tblTidsskrift", "tidsskrift = " & intTidsskrift )
Avatar billede terry Ekspert
19. juni 2006 - 14:08 #7
I am assuming that tidsskrift is the field you use to find the correct record
Avatar billede nmk Nybegynder
19. juni 2006 - 14:35 #8
Jeg har prøvet, men får en Runtime error 2001. Du har annuleret den forrige handling.

Jeg er ikke særligt avanceret Access bruger, så du må nok skære det ud i pap.
Avatar billede terry Ekspert
19. juni 2006 - 14:42 #9
lets start with this

Application.FollowHyperlink "mailto:" & strModtager & "?subject=" & intTidsskrift & " &body=Følg linket for at se den nyeste indholdsfortegnelse fra " & "http://" & dlookup("link", "tblTidsskrift", "tidsskrift = " & intTidsskrift ) & "", , True
Avatar billede nmk Nybegynder
20. juni 2006 - 09:24 #10
Jeg får stadig fejlen:
Run-time error '2001'
Du har annuleret den forrige handling
Avatar billede terry Ekspert
20. juni 2006 - 09:30 #11
which line of cod edo you get the error on?

Try testing the single line of code with Application.FollowHyperlink .. in a module wher you have variables for the parameters. Just to make sure that this works.
Avatar billede nmk Nybegynder
21. juni 2006 - 13:15 #12
Koden er vist god nok. den fungerer bare ikke sammen med resten.
Avatar billede terry Ekspert
21. juni 2006 - 14:04 #13
:o)

which line of code do you get the error on?
Avatar billede nmk Nybegynder
21. juni 2006 - 15:22 #14
Sorry
Det er denne:
Application.FollowHyperlink "mailto:" & strModtager & "?subject=" & intTidsskrift & " &body=Følg linket for at se den nyeste indholdsfortegnelse fra " & "http://" & dlookup("link", "tblTidsskrift", "tidsskrift = " & intTidsskrift ) & "", , True
Med fejlen:
Run-time error '2001'
Du har annuleret den forrige handling
Avatar billede terry Ekspert
21. juni 2006 - 16:23 #15
sorry but didnt you say that the code (Application.FollowHyperlink ...)was OK? (21/06-2006 13:15:34)
Avatar billede nmk Nybegynder
22. juni 2006 - 08:32 #16
Jeg giver op.
Avatar billede terry Ekspert
22. juni 2006 - 08:36 #17
can you send me your dB?
Avatar billede nmk Nybegynder
22. juni 2006 - 11:32 #18
Ja da.
Til adressen på santhell.dk?
Avatar billede terry Ekspert
22. juni 2006 - 12:07 #19
yes that address will be OK
Avatar billede terry Ekspert
23. juni 2006 - 08:48 #20
thanks nmk
Did you get my mail concerning Outlook? This will allow you to create a mail in HTML which I think will giv eyou a bet chance of including hyperlinks. But it will also require more code
Avatar billede nmk Nybegynder
23. juni 2006 - 08:56 #21
Ja. Jeg vil arbejde videre med det.
Tak for hjælpen!
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester