how to use it please help me i don,t know this coding just give me a simple
solution
how i send mail automatic?


Sub Mail_CDO()
Dim iMsg As Object
Dim iConf As Object
' Dim Flds As Variant
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
' iConf.Load -1 ' CDO Source Defaults
' Set Flds = iConf.Fields
' With Flds
'
..Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'
..Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "Fill in
your SMTP server here"
'
..Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' .Update
' End With
With iMsg
Set .Configuration = iConf
.To = "
.CC = ""
.BCC = ""
.From = """Ron"" "
.Subject = "Important message"
.TextBody = "Hi there" & vbNewLine & vbNewLine & _
"Cell A1 is changed"
.Send
End With
Set iMsg = Nothing
Set iConf = Nothing
End Sub


"Sue Mosher [MVP-Outlook]" wrote:

As Robert suggested, using CDO for Windows to create and send the message would avoid any security prompts. That and other options are covered at http://www.outlookcode.com/article.aspx?ID=52

--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54


"shiva" wrote in message ...
Hi

Iam using outlook api to send emai lfrom my VB application.
Is this redemption library is only available option to get throgh the
security dialogs or is there any microsoft libraries available
Please let me know

Thanks in advance

Sivakumar

"Robert Martim, Excel" wrote:

You can use CDO to bypass Outlook. But if you want to use Outlook, you may
want to use Redemption to do that.

Here's how: http://www.msofficegurus.com/gshowtip.asp?IDTip=51

--
Best regards
Robert, Excel MVP
Author of RibbonX: Customizing the Office 2007 Ribbon:
Find me at http://www.msofficegurus.com - be part of it!
FORUM: http://www.msofficegurus.com/forum/