PROBLEMAS COM ENVIO DE EMAIL
Galera o problema é o seguinte
sempre usei este esquema para enviar:
Dim arqanexo As String
Dim msg As CDO.Message
Dim Cof As CDO.Configuration
Dim Camp
Set msg = New CDO.Message
Set Cof = New CDO.Configuration
Set Camp = Cof.Fields
Label2.ForeColor = vbBlue
Label2.Caption = [Ô]preparando protocolos ...[Ô]
With Camp
.Item(cdoSendUsingMethod) = 2
.Item(cdoSMTPServer) = TxtSmtp.Text
.Item(cdoSMTPConnectionTimeout) = 20
.Item(cdoSMTPAuthenticate) = 1
.Item(cdoSendUserName) = TxtEmail.Text
.Item(cdoSendPassword) = TxtSenha.Text [ô] LCase(PWR.Text)
.Update
End With
Label2.Caption = [Ô]enviando email ....[Ô]
With msg
Set .Configuration = Cof
[ô].To = [Ô]<[Ô] & Para.Text & [Ô]>[Ô]
.BCC = Para.Text [ô] envio com copia oculta
[ô].To = Para.Text [ô]Envio Normal
.From = [Ô]<[Ô] & TxtFRom.Text & [Ô]>[Ô]
.Subject = Assunto.Text
.TextBody = Mensagem.hwnd
[ô]pega o arquivo em anexo (caminho) e tranf para a variavel pois nao funfa direto entendeu piradinha
arqanexo = ANEXO.Text
If Len(arqanexo) > 1 Then
.AddAttachment arqanexo
End If
.CC = TxtCCop.Text
On Error Resume Next
.Send
porem agora nao funciona mais, me disseram para usar a porta 587 porque a 25 nao funciona mais porem nao sei onde confiurar, se alguem puder me judar eu agradeço muito
Sds,
mito
sempre usei este esquema para enviar:
Dim arqanexo As String
Dim msg As CDO.Message
Dim Cof As CDO.Configuration
Dim Camp
Set msg = New CDO.Message
Set Cof = New CDO.Configuration
Set Camp = Cof.Fields
Label2.ForeColor = vbBlue
Label2.Caption = [Ô]preparando protocolos ...[Ô]
With Camp
.Item(cdoSendUsingMethod) = 2
.Item(cdoSMTPServer) = TxtSmtp.Text
.Item(cdoSMTPConnectionTimeout) = 20
.Item(cdoSMTPAuthenticate) = 1
.Item(cdoSendUserName) = TxtEmail.Text
.Item(cdoSendPassword) = TxtSenha.Text [ô] LCase(PWR.Text)
.Update
End With
Label2.Caption = [Ô]enviando email ....[Ô]
With msg
Set .Configuration = Cof
[ô].To = [Ô]<[Ô] & Para.Text & [Ô]>[Ô]
.BCC = Para.Text [ô] envio com copia oculta
[ô].To = Para.Text [ô]Envio Normal
.From = [Ô]<[Ô] & TxtFRom.Text & [Ô]>[Ô]
.Subject = Assunto.Text
.TextBody = Mensagem.hwnd
[ô]pega o arquivo em anexo (caminho) e tranf para a variavel pois nao funfa direto entendeu piradinha
arqanexo = ANEXO.Text
If Len(arqanexo) > 1 Then
.AddAttachment arqanexo
End If
.CC = TxtCCop.Text
On Error Resume Next
.Send
porem agora nao funciona mais, me disseram para usar a porta 587 porque a 25 nao funciona mais porem nao sei onde confiurar, se alguem puder me judar eu agradeço muito
Sds,
mito
Verifique onde está a variável cdoPort
outra coisa é verificar a configuração fornecida pelo servidor de e-mail, ou estou errado?
ja procurei e atécoloquei como cdoPort mas dis que da conflito nao seii mais oq fazer
Sempre utilizei uma DLL (Vbsendmail) se não me engano nunca tive erro, já tentou ?
No seu bloco [Ô]With[Ô] coloque:
.Item(cdoPort) = 25
.Item(cdoPort) = 25
tenetei nao adiantou
Qual é o provedor de e-mail (Interno / Externo) se for externo ligue para eles e peça a porta de saida SMTP.
Tenta a porta 587.
qual é o servidor?
é dominio proprio e dizem que a posrta tem que se 587 mas sei onde colocar
Tópico encerrado , respostas não são mais permitidas