View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
Claus Busch Claus Busch is offline
external usenet poster
 
Posts: 3,872
Default 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