Dim OutApp As Object Dim OutMail As Object Dim strbody As String Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) strbody = managername & "," & vbNewLine & vbNewLine & _ "Data has been dumped from the survey controller on project number " & newjob & ". The name of the file is: " & vbNewLine & vbNewLine & _ filefromname & vbNewLine & vbNewLine & _ "and it is located in the following folder:" & vbNewLine & vbNewLine & _ "<a href=""<file:///" & GetFolder & ">"">" & GetFolder & "</a>" & vbNewLine & vbNewLine & _ "Comments:" & vbNewLine & surveynotes MsgBox strbody On Error Resume Next With OutMail .To = manageremail .Subject = "Some survey points have been downloaded on one of your projects" .Body = strbody 'You can add a file like this '.Attachments.Add ("C:\test.txt") .Send 'or use .Display End With On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing
Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.
When asked, what has been your best career decision?
Deciding to stick with EE.
Being involved with EE helped me to grow personally and professionally.
An Experts Exchange subscription includes unlimited access to online courses.Get Started
Connect with Certified Experts to gain insight and support on specific technology challenges including:
We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE