Save File Name Based Off A Cell And Then Draft Up Email On Outlook

[rameezl17]

Hi All,

I have each of the codes to do what I said above...however I cant make them work together.
I want the code to:
First - Save excel file based on Cell C:6 Second - Draft Up An Email Automatically in Outlook Third - But I dont want it to send automatically, I just want it to draft it open and pop up for the user.
This is what I have so far:

Sub SendEmail()

Name = Range("C6").Value ActiveWorkbook.SaveAs Filename:=Name
Dim OutApp As Object Dim OutMail As Object
<code style="margin: 0px; padding: 0px; border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; vertical-align: baseline; box-sizing: inherit; white-space: inherit;">


Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.to = "example email"
.CC = ""
.BCC = ""
.Subject = "Form"
.Body = "Test"
.Attachments.Add ActiveWorkbook.FullName
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
</code>End Sub
Any help would be greatly appreciated Thank you!

 

[gruntingmonkey]

Hello there! You were not too far off at all. You need to specify where the file is being saved in the first instance and then display when creating the email.

Sub SendEmail()

Name = Range("C6").Value
ActiveWorkbook.SaveAs Filename:="H:\" & Name & ".xlsm", FileFormat:= _
  xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
 , CreateBackup:=False

Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.to = "example email"
.CC = ""
.BCC = ""
.Subject = "Form"
.Body = "Test"
.Attachments.Add ActiveWorkbook.FullName
.display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub