> Hello,
>
> I have read the thread "autofilling access database from outlook" and took
> read the link that was posted in the reponse, but I cannot seem to get the
> answer I'm looking for.
>
> I have my database set up so that it automatically sends an e-mail to a
> person based on form values. I would like to place an embeded link into
> the
> message that will open up the database that sent the e-mail.
>
> If that cannot be done, is there a simple way to add the link manually in
> the Outlook message? I just want it to open the database right from the
> e-mail so that they do not have to close the message and find the folder
> that
> the database resides in.
>
> I realize that this is an Outlook forum, but here is the VB code in Access
> that send the e-mail to outlook:
>
> Dim emailBody As String
> Dim emailSubject As String
>
> emailSubject = "Product Test Request"
>
> On Error GoTo btnSend_Click_error
> If Me!lboRequestor.ItemsSelected.Count = 0 Then
> MsgBox "Please select a test requestor"
> Exit Sub
> End If
> Me.PART_NO.SetFocus
> emailBody = "Hello, " & vbCrLf & vbCrLf & _
> "A product test request has been issued for the following Part Number: " &
> Me.PART_NO.Text & _
> vbCrLf & vbCrLf & "Please log into the Product Engineering test database
> to
> review this request, Thank You!"
>
> On Error GoTo btnSend_Click_error
> If Me!lboRequestee.ItemsSelected.Count = 0 Then
> MsgBox "Please select a test requestee"
> Exit Sub
> End If
>
> For Each varItem In Me!lboRequestee.ItemsSelected
> emName = emName & Chr(34) & Me!lboRequestee.Column(2, varItem) & Chr(34) &
> ","
> Next varItem
>
> For Each varItem In Me!lboRequestor.ItemsSelected
> emName2 = emName2 & Chr(34) & Me!lboRequestor.Column(2, varItem) & Chr(34)
> &
> ","
> Next varItem
>
> 'remove the extra comma at the end
> 'add the requestor to the e-mail list recipients
> emName2 = Left$(emName2, Len(emName2) - 1)
> emName = emName & emName2
>
> 'send message
> DoCmd.SendObject acSendNoObject, , , emName, , , emailSubject, emailBody,
> True, False
>
> DoCmd.Close acForm, "frmRequest", acSaveNo
> DoCmd.OpenForm "frmMain", acNormal, , , , acDialog
>
> btnSend_Click_error:
> If Err.Number = 2501 Then
> MsgBox "You just canceled the e-mail", vbCritical, "Alert"
> End If
>