AJUDA ENVIO DE EMAIL SEM OUTLOOK

EXPOLETA 28/04/2010 11:40:12
#340437

[txt-color=#0000f0]
EMAIL_REM = LCase(Rs([Ô]us_email[Ô])) & LCase(X_EMAIL)
SENHA_rem = Rs([Ô]us_senha[Ô])

With Camp
.Item(cdoSendUsingMethod) = 2
.Item(cdoSMTPAuthenticate) = 1

[ô].Item(cdoSendUsingPort) = 25


.Item(cdoSMTPServer) = X_PROVEDOR [ô][Ô]smtp.poa.terra.com.br[Ô]
.Item(cdoSMTPConnectionTimeout) = 30


.Item(cdoSendUserName) = EMAIL_REM [ô][Ô]EMAIL t@terra.com.br[Ô]
.Item(cdoSendPassword) = LCase(SENHA_rem) [Ô]SENHA[Ô]
[ô] .Item(cdoSMTPUseSSL) = True

.Update
End With


Endereco_Dst = LCase(Trim(Endereco_Dst))
With MSG
Set .Configuration = Cof
.To = [Ô][Ô] PARA [Ô] < [Ô] & Endereco_Dst & [Ô] > [Ô][Ô][Ô]

.From = [Ô][Ô][Ô]DE [Ô][Ô] <[Ô] & EMAIL_REM & [Ô]>[Ô]

.Subject = Titulo_Msg

.HTMLBody = [Ô]EMAIL BLABLABLA[Ô]

.AddAttachment CaminhoArq
.Send

MsgBox [Ô]Email Enviado Com Sucesso![Ô], vbExclamation, [Ô]AVISO[Ô]
Exit Sub
End With[/txt-color]

SEGUINTE, COM O EMAIL DO TERRA , ENVIA NORMAL. TUDO BLZ.
MAS COM O SERVIDOR DO GMAIL OU DO HOTMAIL, N TEM JEITO DE IR, AS VEZES DA ERRO E AS VEZE SIMPLESMENTE N CHEGA NADA..
JA MUDEI TUDO OS PARAMETROS ALI DA CONVIFGURAÇÕES. COMO EM VARIOS EXE. E TUTOS. E NADA.
PRECISO URGENTE DE UMA AJUDA.
DESDE JA AGRADEÇO.