Runtime error 1004 with "ActiveWorkbook.EnvelopeVisible = True"

[mrbugsy]

Hi all,

I am trying to create a macro to send an email via outlook.

The code works on my computer but it does not seem to work on another computer, where a Runtime error 1004 is returned. "ActiveWorkbook.EnvelopeVisible = True" being highlighted when I try to debug.
Please see my code below.

Sub Send_Selection_Or_ActiveSheet_with_MailEnvelope()

ActiveSheet.Range("C1:M47").Select

ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Item.To = Sheets("Email").Range("A1").Text
.Item.CC = Sheets("Email").Range("A2").Text
.Item.BCC = ""
.Item.Subject = "Report_" & Format(ThisWorkbook.Sheets("Chart").Range("C2"), "dd mmm yy")
.Item.Send
End With
End Sub

 

[ajetrumpet]

i've never used that particular method of the activeworkbook class like you are doing, but have you done your research yet?

Runtime error 1004 causes - first result on this page yields a wealth of knowledge.

Using Activeworkbook.EnvelopVisible=True

Error 1004 happening with EnvelopeVisible=True

 

[Michael M]

Have a look here at Example 1

Home | Ron de Bruin Excel Automation

Welcome to https://www.rondebruin.nl

www.rondebruin.nl