insert call email module after export file

[rjmdc]

hi
i have an export file module
i am trying to add a call email as part of the export
i am doing something incorrectly

Sub ExportStBill()
    
    Call WSUnProtect(Worksheets("State Billing"))
    Dim wb As New Workbook
    Dim SaveFolder As String: SaveFolder = "my folder\"
    Dim FileName As String
       
    With Worksheets("State Billing")
        FileName = .Cells(2, "B") & " " & Format(.Cells(1, "B"), "m-yyyy")
        Set tbl = .ListObjects(1)
        tbl.Range.Copy
    End With
   
    Set wb = Workbooks.Add
    wb.Activate
    wb.Sheets(1).Range("A1").PasteSpecial xlPasteAll
    Selection.Columns.AutoFit
   
    'Save and Close New WB
    wb.SaveAs SaveFolder & "\" & FileName, xlOpenXMLWorkbook
    wb.Close SaveChanges:=False
   
    'Back to Main WB
    ThisWorkbook.Activate
    Call WSProtect(Worksheets("State Billing"))
   
    'Inform User
    MsgBox "File Export Complete", vbOKCancel
   
'    If Result = vbOK Then
'
'        Call email1
'    End If
  
End Sub

then this is my email module:

Sub email1()
  Dim sMail As String, sSubj As String, sBody As String

        sMail = "mail@mail.org"
        sSubj = "Billing ready for submission"
        sBody = "Billing is ready for submission in myfolder"
        Call SendMail(sMail, sSubj, sBody)
     
    End Sub

Sub SendMail(sMail, sSubj, sBody)
  Dim OutlookApp As Object
  Set OutlookApp = CreateObject("Outlook.Application").CreateItem(0)
  With OutlookApp
    .To = sMail
    .Subject = sSubj
    .Body = sBody
    .Display 'Display Email
    .Send 'Send Email
  End With
End Sub

potentailly i would like to call email1 and then create also an email2

this is not working

 

[KOKOSEK]

That should works in general.

 

[rjmdc]

thank you so much
please explain what your message "message" means

 

[KOKOSEK]

That's title for msgbox window.

MsgBox( prompt [, buttons ] [, title ])

• prompt – This is a required argument. It displays the message that you see in the MsgBox. In our example, the text “This is a sample MsgBox” is the ‘prompt’. You can use up to 1024 characters in the prompt, and can also use it to display the values of variables. In case you want to show a prompt that has multiple lines, you can do that as well (more on this later in this tutorial).
• [buttons] – It determines what buttons and icons are displayed in the MsgBox. For example, if I use vbOkOnly, it will show only the OK button, and if I use vbOKCancel, it will show both the OK and Cancel buttons. I will cover different kinds of buttons later in this tutorial.
• [title] – Here you can specify what caption you want in the message dialog box. This is displayed in the title bar of the MsgBox. If you don’t specify anything, it will show the name of the application.

 

[rjmdc]

now it gives me the export complete message twice

 

[KOKOSEK]

put your code here after changes (only ExportStBill part)

 

[rjmdc]

thanks
icommented out my message box and only kept yours
this is superb

 

[KOKOSEK]

I suppose that you have MsgBox twice now
Happy to help.

 

[rjmdc]

stay safe
bless you for all