EMAIL COM CDO - AJUDA COM ERRO

SAMUKA 18/09/2011 08:18:29
#384575

Passo por esse problema e também não encontrei solução. Já testei HOTMAIL, GMAIL e YAHOO, todos tem limite de mensagens, sendo que alguns travam e não permite mandar e-mails nem através do site. Só consegui desbloquear através de um processo de confirmação de uso de e-mail, e ainda assim, a limitação continua ...

LIZANDER 18/09/2011 16:12:44
#384593

Agradeço a todos e aparentemente tudo foi resolvido...
Agradecimentos em especial ao BARROS, pois ao me dar a dica sobre o AVAST (que eu uso) pude ver que a porta usada era a 465 e não a 587, e então fluiu sem problemas...
Meu código final ficou assim:

DoEvents
With Camp
.Item(cdoSMTPServerPort) = txtPortaSMTP.Text
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = Trim(txtSMTP.Text)
.Item(cdoSMTPConnectionTimeout) = 10
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSMTPUseSSL) = True
.Item(cdoSendUserName) = Trim(txtEmailRem.Text)
.Item(cdoSendPassword) = Trim(txtSenhaEmail.Text)
.Update
End With

DoEvents
With Msg
Set .Configuration = Cof
.To = [Ô]<[Ô] & cEmailTo & [Ô]>[Ô]
.From = txtNomeExibicao.Text & [Ô] <[Ô] & Trim(txtEmailRem.Text) & [Ô]>[Ô]
.Subject = txtSubject.Text
.TextBody = cCorpoEmail
.Attachments.DeleteAll
If lstAnexos.ListCount > 0 Then
nIndAnexo = 0
Do While nIndAnexo < lstAnexos.ListCount
arqanexo = lstAnexos.List(nIndAnexo)
.AddAttachment arqanexo
nIndAnexo = nIndAnexo + 1
Loop
End If
.Send
End With


Aos amigos peço a atenção especial à linha [Ô].Attachments.DeleteAll[Ô], pois eu percebi que sem ela, o primeiro ia com um anexo, o segundo com dois e assim sucessivamente... Ou seja, tem que zerar os anexos sempre para evitar duplicações...
Eu já enviei mais de 100 testes hoje em menos de 15 minutos e não deu erro nenhum, ou seja, parece que está tudo ok...

Agradeço a todos e pontuo o BARROS..

Obrigado!