View Single Post
  #13 (permalink)  
Old December 27th, 2006, 05:51 PM
Sam_J Sam_J is offline
Registered User
 
Join Date: Dec 2006
Location: , , .
Posts: 1
Thanks: 0
Thanked 0 Times in 0 Posts
Default

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 = "yourID@Yourid.com"
    .to = "chuchu@chuchu.com"
    .Subject = "Text"
    .TextBody = "Hellos"
    .Addattachment "C:\IO.SYS"
    .Send
  End With
End Sub


;)

Reply With Quote