Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

I need a Hyperlink to show in an email using Access

Status
Not open for further replies.

DougP

MIS
Dec 13, 1999
5,985
US
I having trouble creating a Hyperlink in and email using VBA in Access
The hyperlink shows up partially ending at the space
\\servero2\Data[color] Files\Task Order\TimeSheets.mdb
Here is my code
Code:
    Dim Msg As String
    Msg = "Please open your timesheet and fill it out!" & vbCrLf
    Msg = Chr(34) & "\\servero2\Data Files\Task Order\TimeSheets.mdb" & Chr(34) & vbCrLf
    Msg = Msg & vbCrLf    ' Blank Line
    Msg = Msg & "OHC Environmental Droid" & vbCrLf
    Msg = Msg & "Timsheet Administrator" & vbCrLf
    
    DoCmd.SendObject acSendNoObject, "", acFormatHTML, , , , "Missing Timehseet info for " & Me.WeekEndDate, Msg, True

TIA



DougP
 




Hi,

Try this. It works MANUALLY to create a hyperlink where there are SPACES...
Code:
    Msg = "<\\servero2\Data Files\Task Order\TimeSheets.mdb>" & vbCrLf


Skip,

[glasses]Have you heard that the roundest knight at King Arthur's round table was...
Sir Cumference![tongue]
 
Another way you may try:
Msg = Replace("\\servero2\Data Files\Task Order\TimeSheets.mdb", " ", "%20")

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top