ActiveWorkbook.EnvelopeVisible = True
 

I currently have a mailing macro that references one cell for the message.
We are trying to put more information into the body of the outlook mail
message by selecting multi cells. I have found code on the web that uses the
ActiveWorkbook.EnvelopeVisible=True object. The problem I'm having is that I
get a run-time error 1004 "Method 'EnvelopeVisible' of object'_workbook'
Failed".

I have searched for an answer to my run-time error, but not finding
anything. Any help would be greatly appreciated. Below is the coding.


Sub Send_Range()

' Select the range of cells on the active worksheet.
ActiveSheet.Range("D5:G15").Select

' Show the envelope on the ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = True

' Set the optional introduction field thats adds
' some header text to the email body. It also sets
' the To and Subject lines. Finally the message
' is sent.
With ActiveSheet.MailEnvelope
.Introduction = "This is a sample worksheet."
.Item.To = "
.Item.subject = "My subject"
.Item.Send
End With
End Sub

ActiveWorkbook.EnvelopeVisible = True
 

Hi DFox

Do you use Outlook ?
Which Excel version do you use?
Wich Outlook version ?

I have also a example for Outlook
http://www.rondebruin.nl/mail/folder3/mail4.htm


--
Regards Ron de Bruin
http://www.rondebruin.nl


"DFox" wrote in message ...
I currently have a mailing macro that references one cell for the message.
We are trying to put more information into the body of the outlook mail
message by selecting multi cells. I have found code on the web that uses the
ActiveWorkbook.EnvelopeVisible=True object. The problem I'm having is that I
get a run-time error 1004 "Method 'EnvelopeVisible' of object'_workbook'
Failed".

I have searched for an answer to my run-time error, but not finding
anything. Any help would be greatly appreciated. Below is the coding.


Sub Send_Range()

' Select the range of cells on the active worksheet.
ActiveSheet.Range("D5:G15").Select

' Show the envelope on the ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = True

' Set the optional introduction field thats adds
' some header text to the email body. It also sets
' the To and Subject lines. Finally the message
' is sent.
With ActiveSheet.MailEnvelope
.Introduction = "This is a sample worksheet."
.Item.To = "
.Item.subject = "My subject"
.Item.Send
End With
End Sub

ActiveWorkbook.EnvelopeVisible = True
 

Do you use Outlook ?
Yes
Which Excel version do you use?
2002
Wich Outlook version ?
2002

I would go to your site, but all freeware and download sites are blocked at
work.

"Ron de Bruin" wrote:

Hi DFox

Do you use Outlook ? Yes
Which Excel version do you use?
Wich Outlook version ?

I have also a example for Outlook
http://www.rondebruin.nl/mail/folder3/mail4.htm


--
Regards Ron de Bruin
http://www.rondebruin.nl


"DFox" wrote in message ...
I currently have a mailing macro that references one cell for the message.
We are trying to put more information into the body of the outlook mail
message by selecting multi cells. I have found code on the web that uses the
ActiveWorkbook.EnvelopeVisible=True object. The problem I'm having is that I
get a run-time error 1004 "Method 'EnvelopeVisible' of object'_workbook'
Failed".

I have searched for an answer to my run-time error, but not finding
anything. Any help would be greatly appreciated. Below is the coding.


Sub Send_Range()

' Select the range of cells on the active worksheet.
ActiveSheet.Range("D5:G15").Select

' Show the envelope on the ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = True

' Set the optional introduction field thats adds
' some header text to the email body. It also sets
' the To and Subject lines. Finally the message
' is sent.
With ActiveSheet.MailEnvelope
.Introduction = "This is a sample worksheet."
.Item.To = "
.Item.subject = "My subject"
.Item.Send
End With
End Sub

ActiveWorkbook.EnvelopeVisible = True
 

Hi

Check out this

1)
OFF: You Cannot Send E-Mail from Microsoft Word, Microsoft PowerPoint, or Microsoft Excel
http://support.microsoft.com/default...b;en-us;821404

Check out if Outlook or Outlook Express is your mail program for Office
StartSettingsControl Panel....Internet options (Program Tab)
Close Excel first before you make a change.


2)
XL2002: "Send To Routing Recipient" Command Does Nothing
http://support.microsoft.com/default...b;en-us;296396

Note : If you use a other language version then English
The MAPIX=1 can be in the section [Correo] for example and not in the [Mail] section.
This is a example for a Spanish version (Correo = Mail in Spanish).


--
Regards Ron de Bruin
http://www.rondebruin.nl


"dfox" wrote in message ...
Do you use Outlook ?
Yes
Which Excel version do you use?
2002
Wich Outlook version ?
2002

I would go to your site, but all freeware and download sites are blocked at
work.

"Ron de Bruin" wrote:

Hi DFox

Do you use Outlook ? Yes
Which Excel version do you use?
Wich Outlook version ?

I have also a example for Outlook
http://www.rondebruin.nl/mail/folder3/mail4.htm


--
Regards Ron de Bruin
http://www.rondebruin.nl


"DFox" wrote in message ...
I currently have a mailing macro that references one cell for the message.
We are trying to put more information into the body of the outlook mail
message by selecting multi cells. I have found code on the web that uses the
ActiveWorkbook.EnvelopeVisible=True object. The problem I'm having is that I
get a run-time error 1004 "Method 'EnvelopeVisible' of object'_workbook'
Failed".

I have searched for an answer to my run-time error, but not finding
anything. Any help would be greatly appreciated. Below is the coding.


Sub Send_Range()

' Select the range of cells on the active worksheet.
ActiveSheet.Range("D5:G15").Select

' Show the envelope on the ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = True

' Set the optional introduction field thats adds
' some header text to the email body. It also sets
' the To and Subject lines. Finally the message
' is sent.
With ActiveSheet.MailEnvelope
.Introduction = "This is a sample worksheet."
.Item.To = "
.Item.subject = "My subject"
.Item.Send
End With
End Sub