Opening new email from command button

[poetrysue]

I am creating a userform that my sales people will use to generate a Purchase Order Request. The form will populate a spreadsheet that my inventory control department can use to track the status of requests. I want the "save" button that saves the userform and populates the data to the spreadhseet to also open a new email (we all use outlook). The email would be from them to our Orders email inbox. This will allow them to attach a file like a quote or a spec sheet to the email.

I'd like the email to have the subject line "PO Request for *" Where * is the value of an ID number Generated by the table in the spreadsheet.

 

[DanteAmor]

Welcome to the forum.

You need something like this:

Sub email_test()
  Dim dam As Object
  ActiveSheet.Copy
  ActiveWorkbook.SaveAs ThisWorkbook.Path & "\PO.xlsx"
  ActiveWorkbook.Close
  Set dam = CreateObject("Outlook.Application").CreateItem(0)
  dam.To = "email@gmail.com"              'recipients
  dam.Subject = "PO Request for " & Range("E2").Value         'Subject
  dam.Body = "body"
  dam.Attachments.Add ThisWorkbook.Path & "\PO.xlsx"   'file
  dam.Display                             ' Change Send to send email
End Sub

 

[poetrysue]

Is it possible to change "Outlook.Application" to something like "DefaultEmail.Application" to open up whatever default email program is they are using?

 

[DanteAmor]

Is it possible to change "Outlook.Application" to something like "DefaultEmail.Application" to open up whatever default email program is they are using?

did you try the macro?

I put outlook for this:

"we all use outlook"

 

[poetrysue]

Yes and it works great! And yes we do all use outlook, but the boss wants it to be a little more flexible in case someone is accessing it from a computer that is not their work computer and needs to use a different email client.

 

[DanteAmor]

I don't know the instruction to have that flexibility.
You could create a new thread, to see if they answer that question.


Meanwhile, it was a pleasure helping you. Good luck