Issues in sending e-mail from FDM
839870Mar 27 2011 — edited Mar 30 2011Hi Experts,
I am working on FDM v 11.1.1.3, windows 2003 SP2, IIS 6.0 and I am trying to send an e-mail using the Send Mail accelerator and following is the code:
'Define variables etc.
strFromAddress = DW.Security.fUserEmailGet(DW.Connection.PstrUserID)
strToAddress = "xyz@gmail.com" '"YourToAddress"
strSubject = "Import Failed" '"YourSubjectLine"
strEmailMsgLine = "The import process has failed." '"YourMessageLine"
strSMTPServer = "smtp.gmail.com"
'CdoSendUsing enumeration-1=use smtp on local machine, 2=use smtp over network
intSendUsing = 1
'SMTP port on server
intSMTPPort = 25
Set objConfig = CreateObject("CDO.Configuration")
With objConfig.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = intSendUsing
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTPServer
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= intSMTPPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Update
End With
'Create CDO message object
Set objMsg = CreateObject("CDO.Message")
'Assign config object to configuration property of message object
Set objMsg.Configuration = objConfig
'Set Message object settings and send mail
With objMsg
.To = strToAddress
.From = strFromAddress
.Subject = strSubject
.TextBody = strEmailMsgLine
.Send
End With
'Destroy message objects
Set objMsg = Nothing
Set objConfig = Nothing
When I set 'CdoSendUsing' to 1, an eml file gets generated on the path 'C:\Inetpub\mailroot\Pickup' but I never receive it on my gmail ID. When I set the 'CdoSendUsing' to 2, I get an error on the .Send line saying 'The server rejected the sender address. Server response was 530 5.7.0 must issue a STARTTLS command first'. I also checked the MetaBase.XML, 'PickupDirectory' is set.
Please suggest where am I going wrong.
Thanks & Regards!