Email worksheet as TXT or as CSV

[jamescol]

Anne,
This sample is (so far) untested, but should enable you to send a MAPI email via Groupwise as long as GW is the default mail program. Actually, this sample will simply send a message via the default MAPI email client - really doesn't matter which one is being used. Good to keep in your back pocket.

James

Sub SendMAPIMail()
   Dim objSession As Object
   Dim objMessage As Object
   Dim objRecipient As Object
   Dim strSubject as String  'From Excel data
   Dim strMessageBody as String  'From Excel data
   Dim strRecipient as String  'From Excel
' Create the Session Object
Set objSession = CreateObject("MAPI.Session")
' Log on using the session object
objSession.Logon , , False, False
' Add a new message to the OutBox
Set objMessage = objSession.Outbox.Messages.Add
'Set the mail item properties
objMessage.Subject = strSubject
objMessage.Text = strMessageBody
'Add a recipient object to the objMessage.Recipients collection
Set objRecipient = objMessage.Recipients.Add
' Set the properties of the recipient object
objRecipient.Name = strRecipient
objRecipient.Resolve
'Send the message
objMessage.Send showDialog:=False
' Log off using the session object
objSession.Logoff
'Cleanup
Set objSession = Nothing
Set objMessage = Nothing
Set objRecipient = Nothing