generating e-mail w/ links to excel file
Hi Matthew,
Am Sat, 6 Jun 2015 10:07:36 -0700 (PDT) schrieb Matthew Dyer:
So you mean if i want the link to open a file i need to put in the file name and not just the directory path? i guess that makes sense... :-) thanks for the help. sometimes it's just the silly simple things...
Try:
Sub Mail()
Dim TEMPfiles As String
Dim strTo As String, strBody As String
Dim OutApp As Object, OutMail As Object
TEMPfiles = "C:\CYCLE_DELQ\Files\06-05-2015"
strTo = "
strBody = "Thank you and Have a Great Day!"
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.to = strTo
.CC = ""
.BCC = ""
.Subject = "cycle_delq report"
.HTMLBody = "<HTML<BODY" & strBody & "<br<br" & _
"<a href=" + TEMPfiles + "TEMPfiles</a</BODY</HTML"
.display
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Regards
Claus B.
--
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional
|