E-MAIL VIA VB 6.0
Eu testei vários dos modelos daqui. Porém só retornava erro do tipo Tempo de conexão estourado, enfim, nenhum funcionou.
Acho que se vc digitar um pequeno texto e setar as variáveis fica mais fácil... Se usar o meu exemplo na risca irá funcionar!
O melhor que existe é o vbsendmail,
Então pessoal,
Como já disse, testei todas que vocês informaram. Todas retornaram tempo limite estourado. Será que pode ser algum problema com o Firewall?
Eu me lembro que antes o vbsendmail funcionava certinho, sem problemas. Depois eu atualizei o Internet Explorer. Depois disso parou de funcionar tudo.
Adriano eu postei meu codigo na página anterior, você poderia dar uma olha para ver se há algo errado?
Aguardo notÃcias.
Como já disse, testei todas que vocês informaram. Todas retornaram tempo limite estourado. Será que pode ser algum problema com o Firewall?
Eu me lembro que antes o vbsendmail funcionava certinho, sem problemas. Depois eu atualizei o Internet Explorer. Depois disso parou de funcionar tudo.
Adriano eu postei meu codigo na página anterior, você poderia dar uma olha para ver se há algo errado?
Aguardo notÃcias.
eu uso o vbsendmail, a unica coisa q deixa a desejar é q não se pode colocar uma imagem como fundo, somente no anexo..
Fiz alguns testes com o CDO e funcionou blzura. Alias, meu servidor de e-mail é HOTMAIL e funciona sem problemas !!!
Seguinte,
Alguém utiliza o MSN nas máquinas de testes?
Talvez possa ser o MSN que está travando minhas mensagens. Não tem lógica. Segui todos os conselhos e continua dando erro.
Fala sério. O dor de cabeça meu Deus.
Alguém utiliza o MSN nas máquinas de testes?
Talvez possa ser o MSN que está travando minhas mensagens. Não tem lógica. Segui todos os conselhos e continua dando erro.
Fala sério. O dor de cabeça meu Deus.
Cara, deve ser realmente algum programa que esteja bloqueando a fila de envio de mensagens....
O que vou dizer, talvez, seja loucura... mas.... tente achar algum programa que esteja usando a dll da CDO. Pode ser isso...
Olha, eu usei o e-mail da bol..
Se estiver usando o Win7 desabilite o UAC....
Desabilite momentaneamente o seu firewalll, antivirus, spy... etc..
vai por eliminação ae...!!
O que vou dizer, talvez, seja loucura... mas.... tente achar algum programa que esteja usando a dll da CDO. Pode ser isso...
Olha, eu usei o e-mail da bol..
Se estiver usando o Win7 desabilite o UAC....
Desabilite momentaneamente o seu firewalll, antivirus, spy... etc..
vai por eliminação ae...!!
este está 100% uso ele a mais de 2 anos...
Private Sub CmdEMAIL_Click()
10 On Error GoTo CmdEMAIL_Click_Error
20 If isEmail(Me.Text1(0).Text) = True Then [ô]verifica se o e-mail digitado é valido
30 Screen.MousePointer = 11
40 Set obJemail = CreateObject([Ô]CDO.Message[Ô])
50 obJemail.From = Me.Text1(0).Text [ô][Ô]email_de_quem_envia[Ô]
60 obJemail.To = Me.Text1(1).Text [ô]email pra quem vai
70 obJemail.subject = Me.Text1(2).Text [ô] [Ô]assunto[Ô]
80 SQL = [Ô]Foi Depósitado = [Ô] & Me.NumberBoxVALOR_TAXA.Text
90 SQL = SQL & vbCrLf & vbCrLf
100 SQL = SQL & [Ô]Identificador do Computador = [Ô] & Me.TextIDENTIFICADOR.Text
110 SQL = SQL & vbCrLf & vbCrLf
120 SQL = SQL & [Ô]Razão Social = [Ô] & Me.TextRAZAO_SOCIAL
130 SQL = SQL & vbCrLf & vbCrLf
140 SQL = SQL & [Ô]Estado = [Ô] & Me.ComboUF.Text
150 obJemail.TextBody = SQL & vbCrLf & vbCrLf & _
[Ô]E-MAIL PRA RESPOSTA: [Ô] & Me.Text1(0).Text [ô]A MENSAGEM A SER ENVIADA
160 obJemail.Configuration.Fields.Item([Ô]http://schemas.microsoft.com/cdo/configuration/smtpusessl[Ô]) = True
170 obJemail.Configuration.Fields.Item([Ô]http://schemas.microsoft.com/cdo/configuration/smtpauthenticate[Ô]) = 1
180 obJemail.Configuration.Fields.Item([Ô]http://schemas.microsoft.com/cdo/configuration/sendusing[Ô]) = 2
190 obJemail.Configuration.Fields.Item([Ô]http://schemas.microsoft.com/cdo/configuration/smtpserver[Ô]) = [Ô]smtp.ig.com.br[Ô] [ô]smtp do ig
200 obJemail.Configuration.Fields.Item([Ô]http://schemas.microsoft.com/cdo/configuration/smtpserverport[Ô]) = 465 [ô]ig ou gmail...
210 obJemail.Configuration.Fields.Item([Ô]http://schemas.microsoft.com/cdo/configuration/sendusername[Ô]) = [Ô]alfterra@ig.com.br[Ô] [ô][Ô]user_gmail ou ig[Ô]
220 obJemail.Configuration.Fields.Item([Ô]http://schemas.microsoft.com/cdo/configuration/sendpassword[Ô]) = [Ô]-*******[Ô] [ô][Ô]senha / pass_gmail[Ô]
230 obJemail.Configuration.Fields.Update
240 obJemail.send
250 MsgBox [Ô]IDENTIFICADOR DO SSIMPLES ENVIADO![Ô], vbInformation, [Ô]E-MAIL ENVIADO COM ÊXITO![Ô]
260 Screen.MousePointer = 0
270 Unload Me
280 Else
290 MsgBox [Ô]O SEU E-MAIL ESTà ESTRANHO CONSEQUENTIMENTE INVÃLIDO.[Ô], vbCritical, Me.Caption
300 Me.Text1(0).SetFocus
310 End If
320 On Error GoTo 0
330 Exit Sub
CmdEMAIL_Click_Error:
340 MsgBox [Ô]Error [Ô] & Err.Number & [Ô] ([Ô] & Err.Description & [Ô]) NA LINHA [Ô] & Erl & [Ô] na procedure CmdEMAIL_Click of Formulário FormEMAIL[Ô]
End Sub
Private Sub CmdEMAIL_Click()
10 On Error GoTo CmdEMAIL_Click_Error
20 If isEmail(Me.Text1(0).Text) = True Then [ô]verifica se o e-mail digitado é valido
30 Screen.MousePointer = 11
40 Set obJemail = CreateObject([Ô]CDO.Message[Ô])
50 obJemail.From = Me.Text1(0).Text [ô][Ô]email_de_quem_envia[Ô]
60 obJemail.To = Me.Text1(1).Text [ô]email pra quem vai
70 obJemail.subject = Me.Text1(2).Text [ô] [Ô]assunto[Ô]
80 SQL = [Ô]Foi Depósitado = [Ô] & Me.NumberBoxVALOR_TAXA.Text
90 SQL = SQL & vbCrLf & vbCrLf
100 SQL = SQL & [Ô]Identificador do Computador = [Ô] & Me.TextIDENTIFICADOR.Text
110 SQL = SQL & vbCrLf & vbCrLf
120 SQL = SQL & [Ô]Razão Social = [Ô] & Me.TextRAZAO_SOCIAL
130 SQL = SQL & vbCrLf & vbCrLf
140 SQL = SQL & [Ô]Estado = [Ô] & Me.ComboUF.Text
150 obJemail.TextBody = SQL & vbCrLf & vbCrLf & _
[Ô]E-MAIL PRA RESPOSTA: [Ô] & Me.Text1(0).Text [ô]A MENSAGEM A SER ENVIADA
160 obJemail.Configuration.Fields.Item([Ô]http://schemas.microsoft.com/cdo/configuration/smtpusessl[Ô]) = True
170 obJemail.Configuration.Fields.Item([Ô]http://schemas.microsoft.com/cdo/configuration/smtpauthenticate[Ô]) = 1
180 obJemail.Configuration.Fields.Item([Ô]http://schemas.microsoft.com/cdo/configuration/sendusing[Ô]) = 2
190 obJemail.Configuration.Fields.Item([Ô]http://schemas.microsoft.com/cdo/configuration/smtpserver[Ô]) = [Ô]smtp.ig.com.br[Ô] [ô]smtp do ig
200 obJemail.Configuration.Fields.Item([Ô]http://schemas.microsoft.com/cdo/configuration/smtpserverport[Ô]) = 465 [ô]ig ou gmail...
210 obJemail.Configuration.Fields.Item([Ô]http://schemas.microsoft.com/cdo/configuration/sendusername[Ô]) = [Ô]alfterra@ig.com.br[Ô] [ô][Ô]user_gmail ou ig[Ô]
220 obJemail.Configuration.Fields.Item([Ô]http://schemas.microsoft.com/cdo/configuration/sendpassword[Ô]) = [Ô]-*******[Ô] [ô][Ô]senha / pass_gmail[Ô]
230 obJemail.Configuration.Fields.Update
240 obJemail.send
250 MsgBox [Ô]IDENTIFICADOR DO SSIMPLES ENVIADO![Ô], vbInformation, [Ô]E-MAIL ENVIADO COM ÊXITO![Ô]
260 Screen.MousePointer = 0
270 Unload Me
280 Else
290 MsgBox [Ô]O SEU E-MAIL ESTà ESTRANHO CONSEQUENTIMENTE INVÃLIDO.[Ô], vbCritical, Me.Caption
300 Me.Text1(0).SetFocus
310 End If
320 On Error GoTo 0
330 Exit Sub
CmdEMAIL_Click_Error:
340 MsgBox [Ô]Error [Ô] & Err.Number & [Ô] ([Ô] & Err.Description & [Ô]) NA LINHA [Ô] & Erl & [Ô] na procedure CmdEMAIL_Click of Formulário FormEMAIL[Ô]
End Sub
Não quero ser drástico....
Mas confesso... isso aconteceu comigo também....
Minha solução foi FORMATAR e reinstalar tudo ...
FUNCIONOU....
Mas confesso... isso aconteceu comigo também....
Minha solução foi FORMATAR e reinstalar tudo ...
FUNCIONOU....
Tópico encerrado , respostas não são mais permitidas