Try to send email to any yours external know email address (Gmail, Yahoo, e.t.c)

>i've problem about sending CDO mail and i am getting mail error like below
>
>what is wrong there ?
>
>TIA
>
>

>1429-OLE Dispatch exeption code 0 from . The server rejected one or more recipients address.The server reponses 553 sorry that domain is not in my list allowed rcpthosts(#5.7.1)
>

>
>* mail sending codes
>

>                                Select ckodu,cadi,email From Addbs(m.gcdata03)+'cari' Into Cursor CrsResult
>				Do Form get_mail_recipents && select recipients from multiselect list
>				Local lcRecipents,lcToList
>				lcToList = Sys(5)+Curdir()+[tolist.txt] && allready created from get_mail_recipents form
>				lcRecipents = Filetostr(m.lcToList)
>
>
>				xserver= Alltrim(arrmail[1,1])
>				xaccount= Alltrim(arrmail[1,2])
>				xreply= Alltrim(arrmail[1,3])
>				*xto=Alltrim(CrsEmail.cto)
>				xto = m.lcRecipents
>	*			xto=Inputbox("Alıcı Mail Adresi...","e-mail Report")
>	*			If Empty(xto)
>	*				xto=Alltrim(arrmail[1,4])
>	*			Endif
>				xcc=Alltrim(arrmail[1,5])
>				xbcc=Alltrim(arrmail[1,6])
>				xfrom=Alltrim(arrmail[1,7])
>				xsubject=Alltrim(arrmail[1,8])
>				xbody=Alltrim(arrmail[1,9])
>				xattach=Sys(5) + Curdir() + LcTiffFileName
>				Set Procedure To prg\cdo_mail Additive
>				=SendMailViaCDO(xserver,xaccount,xreply,xto,xcc,xbcc,xfrom,xsubject,xbody,xattach)
>

>
>
>
>* cdo_mail.prg codes
>
>

>
>Function SendMailViaCDO
>Lparameters tcServer,tcAccountName,tcReplyAddress,tcTo,tcCC,tcBCC,tcFrom,tcSubject,tcTextbody,tcAttachment
>Local LcServer,LcAccountName,LcReplyAddress,LcTo,LcCC,LcBCC,LcFrom,LcSubject,LcTextbody,LcAttachment
>
>Wait Window "Please wait...e-mail sending via CDO .........." Nowait
>
>LcTo=tcTo
>LcCC=tcCC
>LcBCC=tcBCC
>LcFrom = tcFrom
>LcSubject=tcSubject
>LcTextbody=tcTextbody
>LcAttachment=tcAttachment
>
>*-------
>#Define cdoBasic 1
>#Define cdoNone 0
>LcServer = tcServer &&"mail.XXX.com"
>LcAccountName = tcAccountName &&"XXX"
>LcReplyAddress = tcReplyAddress &&"soykan@XXX.com"
>
>cdoMessage = Createobject("CDO.Message")
>cdoConfig  = Createobject("CDO.Configuration")
>confFields = cdoConfig.Fields
>With cdoConfig.Fields
>	.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")               = m.LcServer
>	.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")           = 25
>	.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")                = 2
>	.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl")               = .F.
>	.Item("http://schemas.microsoft.com/cdo/configuration/smtpaccountname")          = m.LcAccountName
>	.Item("http://schemas.microsoft.com/cdo/configuration/sendemailaddress")         = m.LcReplyAddress
>	.Item("http://schemas.microsoft.com/cdo/configuration/smtpuserreplyemailaddress")= m.LcReplyAddress
>	.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")         = cdoNone
>*!*   .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "domain\username"
>*!*   .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
>	.Update
>Endwith
>
>With cdoMessage
>	.Configuration = cdoConfig
>	.To = LcTo &&"soykan@soykansoft.com"
>	.CC = LcCC &&""
>	.BCC = LcBCC &&""
>	.From = LcFrom &&"My CDO test"
>	.Subject = LcSubject &&"Test emailing with CDO"
>	.TextBody = LcTextbody &&"This is a test."
>	.AddAttachment(LcAttachment)
>	.Send()
>Endwith
>Store .Null. To cdoMessage,cdoConfig
>*----
>Wait Window "e-mail has been succesfully send via CDO ........." Nowait
>Endfunc
>

>
>* below codes creating tolist.txt file on get_mail_recipents form.sendmail()
>
>

>Select email From (Thisform.mGRID1.RecordSource);
>	Where llselected=.t. ;
>	And ;
>	Not Empty(email) Into Array emails
>
>If _Tally = 0
>	Messagebox('there is no selected any record...',16,_Screen.ActiveForm.Caption)
>	Return
>Endif
>
>Set Safety Off
>Local lcRecipentList,tolist
>lcRecipentList=[]
>tolist=SYS(5)+CURDIR()+[tolist.txt]
>For ix=1 To Alen("emails")
>	lcRecipentList = lcRecipentList+Trim(emails[ix])+";"
>Endfor
>m.lcRecipentList = Left(m.lcRecipentList,Len(m.lcRecipentList)-1)
>Strtofile(m.lcRecipentList,m.tolist)
>