Hi,

I am having similar problems. I have an Excel document which contains email addresses in cells A1 to An and I want to email all of these people a zip file. I want to write a macro to do this and the computer I'm using does not have Outlook on it but it does have Groupwise.

Any idea how I can do this?

I would pull in the spreadsheet to a local file, and then loop through the recrds to send individual or group email using the code I pasted above.

mmcdonal

hey guys i am new member in this forum but here is one which you guys might like...

With the little VBA in excel that i have... I have made this code... Hope this help


Sub Sending_Emails()
Dim Message
    Set Message = CreateObject("CDO.Message")
    Message.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    Message.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = 'Exchange Server IP Address'
    Message.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    Message.Configuration.Fields.Update
  With Message
    .from = "[email protected]"
    .to = "[email protected]"
    .Subject = "Text"
    .TextBody = "Hellos"
    .Addattachment "C:\IO.SYS"
    .Send
  End With
End Sub


;)