links i mails fra Access
HejJeg 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
