A
Annette
I have the correct as I want it but is there a way I can have the cursor
positioned in the Subject line after the file name? (Is this even possible?)
-------------------
Sub SendWithAtt()
Dim olApp As Outlook.Application
Dim olMail As MailItem
Dim CurrFile As String
Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)
ActiveWorkbook.Save
CurrFile = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
With olMail
.To = "(e-mail address removed)"
.Subject = ActiveSheet.Range("d1").Text
.Attachments.Add CurrFile
.Display '.Send
End With
Set olMail = Nothing
Set olApp = Nothing
End Sub
positioned in the Subject line after the file name? (Is this even possible?)
-------------------
Sub SendWithAtt()
Dim olApp As Outlook.Application
Dim olMail As MailItem
Dim CurrFile As String
Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)
ActiveWorkbook.Save
CurrFile = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
With olMail
.To = "(e-mail address removed)"
.Subject = ActiveSheet.Range("d1").Text
.Attachments.Add CurrFile
.Display '.Send
End With
Set olMail = Nothing
Set olApp = Nothing
End Sub