Prev: Difference between two numbers
Next: Nested If Statements
From: pdaws on 6 May 2010 15:38
I have a macro in Excel that allows me to send an email from the spreadsheet
to another person in email as an attachment using Lotus Notes. When the
receiver opens the attachment, they receive the following error message:
"File could not be found, verify that the file location is correct". The
code below that I used is came from Ron de Bruin's site:

Sub EmailThisForm()

Dim strDate As String
ActiveSheet.Copy
strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
ActiveWorkbook.SaveAs " " & ThisWorkbook.Name _

ActiveWorkbook.SendMail " ", _
"Reward Request Approval Required"
ActiveWorkbook.ChangeFileAccess xl
Kill ActiveWorkbook.FullName
ActiveWorkbook.Close False
End Sub

I would like to be able to have the receiver open the spreadsheet, then
click on the macro that they have been instructed to use and then use the
macro above to email the spreadsheet to the next person without saving the
spreadsheet to their hard drive. Any help that could be provided would be
greatly appreciated.
From: Ron de Bruin on 6 May 2010 15:48
Hi pdaws

I not have Notes but what happens if you mail to yourself and try to open the workbook

Try the new SendMail code examples on my site maybe this is working better with Notes.
I never test it

Btw it is xlReadOnly
and not xl


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm



"pdaws" <pdaws(a)discussions.microsoft.com> wrote in message news:EF2DA872-1EA9-4FAA-A6CB-141FA27C6F9B(a)microsoft.com...
> I have a macro in Excel that allows me to send an email from the spreadsheet
> to another person in email as an attachment using Lotus Notes. When the
> receiver opens the attachment, they receive the following error message:
> "File could not be found, verify that the file location is correct". The
> code below that I used is came from Ron de Bruin's site:
>
> Sub EmailThisForm()
>
> Dim strDate As String
> ActiveSheet.Copy
> strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
> ActiveWorkbook.SaveAs " " & ThisWorkbook.Name _
>
> ActiveWorkbook.SendMail " ", _
> "Reward Request Approval Required"
> ActiveWorkbook.ChangeFileAccess xl
> Kill ActiveWorkbook.FullName
> ActiveWorkbook.Close False
> End Sub
>
> I would like to be able to have the receiver open the spreadsheet, then
> click on the macro that they have been instructed to use and then use the
> macro above to email the spreadsheet to the next person without saving the
> spreadsheet to their hard drive. Any help that could be provided would be
> greatly appreciated.
 | 
Pages: 1
Prev: Difference between two numbers
Next: Nested If Statements