Create the link to open MS Access database with Security file

[Guest]

Private Sub Command0_Click()

Dim MiOutlook As Outlook.Application
Dim MiCorreo As Outlook.MailItem

Dim NombreFichero As String
Dim NombreFicheroConRuta As String


Set MiOutlook = New Outlook.Application

Set MiCorreo = MiOutlook.CreateItem(olMailItem)

With MiCorreo

..To = "(e-mail address removed)"

..Subject = "Test"

..Body = "<A HREF='C:\Microsoft Office XP\Office10\MSACCESS.EXE' D:\db1.mdb
/WRKGRP 'D:\Secured.mdw' >Open database</A>"

..Send

End With

Set MiCorreo = Nothing
Set MiOutlook = Nothing
End Sub


Send mail via outlook from MS Access:
Suppose the database is in the sharing drive, everyone can access it. I want
to create a link when I send mail, which the link can open the database.
However, the link doesn't work.

Does anybody know that? Thanks.

 

[Guest]

I don't have a lot of experience with this, but have you tried setting the
value of the .HTMLBody property instead of the .Body property?
Good Luck!

 

[Guest]

Private Sub Command0_Click()


Dim MiOutlook As Outlook.Application
Dim MiCorreo As Outlook.MailItem

Dim NombreFichero As String
Dim NombreFicheroConRuta As String


Set MiOutlook = New Outlook.Application

Set MiCorreo = MiOutlook.CreateItem(olMailItem)

With MiCorreo


.To = "(e-mail address removed)"

.Subject = "Test"

.BodyFormat = olFormatHTML
.HTMLBody = "<A HREF='D:\Microsoft Office
XP\Office10\MSACCESS.EXE' C:\db1.mdb /WRKGRP 'C:\Secured.mdw' >Open
database</A>"


.Send

End With

Set MiCorreo = Nothing
Set MiOutlook = Nothing
End Sub

If I add the security, then it doesn't work. I do NOT want to join the
security file before open the database. How do I fix that? Thanks.