Fóruns sobre PHP, JavaScript, HTML, MySQLi, jQuery, Banco de Dados, CSS


Moderador: web

 
Mais de 25 postagens
Mais de 25 postagens
Tópico Autor
Mensagens: 25
Sexo: Masculino

Estou com um problama de envio de email

09-11-2012 22:33

Bom fiz um disparado de email pelo visual basic 6.0
Antes esta tudo certo eviando tudo certo mais agora esta dando este erro aqui
run-time error -2147220973 (80040213)
fiz neste codigo aqui
Private Sub Form_load()

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

'comando para renomear arquivo
'FileCopy "c:\windows\base.mdb", "C:\windows\base.xyz"


With Camp

.Item(cdoSendUsingMethod) = 2 ' cdoSendUsingPort
.Item(cdoSMTPServer) = "smtps.bol.com.br" ' ‘informe o servidor smtp aqui
.Item(cdoSMTPConnectionTimeout) = 587 ' quick timeout
.Item(cdoSMTPAuthenticate) = 1
.Item(cdoSendUserName) = "halloween33@bol.com.br" ' informe o usuario de autenticação
.Item(cdoSendPassword) = "999999" 'Informe a Senha aqui
.Update
End With

With Msg

Set .Configuration = Cof

.To = "halloween33@bol.com.br" 'MyEmail_Cli ' destinatario1@email.com.br;destinatario2@email.com.br ‘ destinatarios separados por ;
.From = "halloween33@bol.com.br" '"contatos@flowsys.com.br" 'remetente@email.com.br ‘ remetente"
.Subject = "BKP BD " & Date & " " & Time()
.HTMLBody = strHTML
'.CC = 'Informe o ou os destinatários da cópia
'.BCC = "contatos@flowsys.com.br" 'Informe o ou os destinatários da cópia oculta
.AddAttachment "c:\windows\base.mdb" '“c: este1.txt;c: este2.txt” ' informe o ou os anexos

.Send

End With

Unload Me

End Sub


oque esta errado oque foi que agora esta dando este erro pode me ajudar obrigada
0
 
Avatar do usuário
ADMIN
ADMIN
Mensagens: 17676
Nome: Kleber
Descrição do site: Onde você encontra scripts grátis para o seu site
Sexo: Masculino
Localização: RJ / RJ / Brasil
Contato:

Estou com um problama de envio de email

10-11-2012 12:06

Esse fórum que você postou é sobre PHP, e não VB. Para dúvidas sobre Visual Basic poste no fórum a seguir http://www.visualbasic.mat.br/forum/
0
A melhor hospedagem para o seu site HostGator!

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado