Hi,

I have the following code that works if you run them seperatly. it saves the email as text file and then send but when i try to combine them, as below, it saves a file but only names it .txt, not by the subject name and also in the file just seems to be a path? i think possible because the msg has already been sent during the run of the code so it causes it not to work together? Also the msg comes up that a program is trying to email a msg and you have to wait 4-5 secs to allow to press yes? you could have probably(nearly) have sent the msg and saved in by the time you can press yes to sending??

Code below.

Sub SaveAsTXT()
    Dim myItem As Outlook.Inspector
    Dim objItem As Object
    Set myOlApp = CreateObject("Outlook.Application")
    Set myItem = myOlApp.ActiveInspector
    If Not TypeName(myItem) = "Nothing" Then
        Set objItem = myItem.CurrentItem
        strname = objItem.Subject
        'Prompt the user for confirmation
        Dim strPrompt As String
        strPrompt = "Are you sure you want to save the item? If a file with the same name already exists, it will be overwritten with this copy of the file."
        If MsgBox(strPrompt, vbYesNo + vbQuestion) = vbYes Then
            objItem.SaveAs "C:\" & strname & ".txt", olTXT
            
            Call SendOpenItem
        End If
    Else
            MsgBox "There is no current active inspector."
    End If
End Sub
Sub SendOpenItem()
   'works!!!!
   Dim myOlApp As New Outlook.Application
    Dim myItem As Object
    Set myItem = myOlApp.ActiveInspector.CurrentItem
    myItem.Send
End Sub
I am using the outlook vba help files and find them very useful but it doesnt seem to explain things like this?

thank you for any help.

Cheers,

Col