How do i get filepath of open .xlt file

[BigDelGooner]

I am trying to email the activework I have open using the code below:

Set myOlApp = CreateObject("Outlook.Application")
Set myitem = myOlApp.CreateItem(olMailItem)
myitem.SentOnBehalfOfName = "S&Co - SAA Modelling"
myitem.To = recip
myitem.Subject = "Portfolio Modelling Request Completed"
myitem.Attachments.Add ActiveWorkbook.FullName
myitem.Display

I have 2 problems here:

- I know there are easier ways of sending the open workbook, however this is the only method I know that allows me to use the '.sentonbehalfofname' function.
- The sheet I am trying to send is an .xlt file so when this method uses the 'Attachments.Add ActiveWorkbook.FullName' line it actually attaches the original .xlt file and not the edited / open version on the screeen.

I guess if I could get the filepath of the open .xlt file rather than the original it would over come this problem!

PLEASE HELP!!!

 

[Andrew Poulsom]

If you have opened a copy of the template you need to save it before adding it as an attachment.

 

[BigDelGooner]

Thanks so much for the quick reply!

If i use the standard 'Application.Dialogs(xlDialogSendMail).Show' it does send the corrrect file.

If we attack it from the other side...is there a way I can add the 'sentonbehalfofname' variable to the standard 'Application.Dialogs(xlDialogSendMail).Show' email method..?

 

[BigDelGooner]

Or is there a totally different email method that could incorporate both..?

Sorry to be a pain!

 

[Andrew Poulsom]

You have to use the Outlook object model.

In your code you need to save the file and attach it. You can delete the saved file afterwards. Look at Example 2 here:

http://www.rondebruin.nl/mail/folder2/mail1.htm

 

[BigDelGooner]

Andrew - you are the man!!