Prev: dlookup using several fields
Next: Add 31 records w/ consecutive dates w/ command button?
From: AJOLSON on 22 Apr 2010 17:22
I am trying to apply a hyperlink to an email that is generated out of Access
and sent to Outlook

The message body needs to say something like this:
The Report is now posted on the server:
LINK: \\Server\Test
I need the \\Server\Test to be hyperlinked above
Below is what I have so far
On Error GoTo Err_cmdEmail_Click
Dim StrTemp As String
StrTemp = Format("\\bhihnbwfa01\Groups\HRR_WFA\300_General Employee
Data\Org_View", HTML)
Can this be done?

Dim strDocName As String
Dim strEmail As String
Dim strMailSubject As String
Dim strMsg As String

strDocName = "TEST" 'Me.lstRpt.Value

strEmail = "Someone(a)Yahoo.com" & vbNullString
strMailSubject = "HR Verification Org View" & vbNullString
strMsg = "The Report is now posted on the server:." & vbNullString &
vbCrLf & vbCrLf & "FROM: SOmeone" & _
vbCrLf & "Link: " & Format(StrTemp, HTML)

DoCmd.SendObject acSendNoObject, , _
acFormatHTML, To:=strEmail, Cc:="", Subject:=strMailSubject,
MessageText:=strMsg

Can This be done?
Thanks any help would be greatly appreciated

 | 
Pages: 1
Prev: dlookup using several fields
Next: Add 31 records w/ consecutive dates w/ command button?