enviar email com CDO

[rafa-martin 2]

eu to fazendo um form que está enviando email com o componente CDO. uso o código abaixo:

 

strnome = Request.Form("nome")
stremail = Request.Form("email")
strmensagem = Request.Form("mensagem")

v_remetente = "alessandro@juseundi.com.br"

Set ObjMail = Server.CreateObject("CDO.Message") 
set iConf = CreateObject("CDO.Configuration")

set Flds = iConf.Fields

with Flds
	.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
	.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtpsuser.igempresas.ig.com.br"
	.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
	.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
	.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "alessandro@juseundi.com.br"
	.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ""
	.Update
end With


objMail.From = stremail
objMail.To = v_remetente
objMail.Subject = "Título da Mensagem" 
objMail.HTMLBody = strmensagem
objMail.Send
Set objMail = Nothing

porém quando faço testes para enviar nos meus emails pessoal, não recebo nada. qual o erro?

 

vlw

[hargon 64]

Já verificou a caixa de SPAM? Não exibe mensagem de erro? Se possuir a linha On Error Resume Next em algum lugar do código, remova e faça o teste novamente.

[ska_ska 0]

http://forum.imasters.com.br/index.php...mp;#entry925128

[rafa-martin 2]

então eu fiz isso:

 

strnome = Request.Form("nome")
stremail = Request.Form("email")
strmensagem = Request.Form("mensagem")

v_remetente = "alessandro@juseundi.com.br"

Set ObjMailer = Server.CreateObject("CDO.Message")

ObjMailer.From = stremail ' email de que está enviando
ObjMailer.to = v_remetente   'email que receberá a mensagem
ObjMailer.Subject = "Teste de email"			 'Assunto do e-mail
ObjMailer.HTMLBody = strmensagem 'mensagem a ser enviada em html				 
ObjMailer.Send
set ObjMailer = nothing

só que não chega e nem vai para o spam.

 

qual o erro?

[hargon 64]

Seu código está completo? Onde está o valor do cdoSendUsingPort?

.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort