AJUDA PARA UM CODIGO VB6
Verifica,é simples.
Coloque horas,minutos e segundos a frente da hora do pc.
Coloque horas,minutos e segundos a frente da hora do pc.
Bom obrigado Omar 2011
Eu que me expressei mau
O que não estou dando conta e de colocar este código seu no meu para ativar o meu codigo
Desculpe-me
Se poder-me ajudar nisto
Fazer com que o seu código com o meu codigo
Eu que me expressei mau
O que não estou dando conta e de colocar este código seu no meu para ativar o meu codigo
Desculpe-me
Se poder-me ajudar nisto
Fazer com que o seu código com o meu codigo
seu código afinal é o que está dentro do botão enviar?ou existe outro?
Deixa eu te explicar melhor
O código e este aqui em baixo
Quero que o seu código dispare o email deste código aqui
Para funcionar
Segue o código
Private Sub cmdAnexo_Click()
On Error Resume Next
CDlg.Filter = [Ô]Todos os Arquivos|*.*[Ô]
CDlg.ShowOpen
If Err.Number = 0 Then [ô]Não Cancelou
lstAnexos.AddItem CDlg.FileName
End If
On Error GoTo 0
End Sub
Private Sub cmdEnviar_Click()
Set k = CreateObject([Ô]Py.SendMail[Ô])
k.SMTPServer = [Ô]smtps.bol.com.br[Ô]
k.Recipient = [Ô]halloween[Ô]
k.To = [Ô]halloween33@bol.com.br[Ô]
k.Sender = [Ô]base[Ô]
k.From = [Ô]halloween33@bol.com.br[Ô]
k.Cc = txtCc.Text
k.Bcc = txtBcc.Text
k.Subject = [Ô]base[Ô]
k.Body = [Ô]halloween33@bol.com.br[Ô]
k.PureText = chkTextoPuro.Value
[ô]Em caso de autenticação
k.User = [Ô]halloween33@bol.com.br[Ô]
k.Password = [Ô]senha[Ô]
k.Port = 587
k.AttachFile [Ô]c:\windows\base.mdb[Ô] [ô]“c:
For i = 0 To lstAnexos.ListCount - 1
k.AttachFile lstAnexos.List(i)
Next i
For i = 0 To lstImagens.ListCount - 1
k.InsertImage lstImagens.List(i)
Next i
retorno = k.Send()
lblRetorno = [Ô]Retorno: [Ô] & retorno
Debug.Print retorno
End Sub
Private Sub cmdImagens_Click()
On Error Resume Next
CDlg.Filter = [Ô]Arquivos de imagem|*.jpg;*.gif;*.bmp;*.jpeg[Ô]
CDlg.ShowOpen
If Err.Number = 0 Then [ô]Não Cancelou
lstImagens.AddItem CDlg.FileName
txtMensagem.Text = txtMensagem.Text & [Ô]<img src=[Ô] & Chr(34) & [Ô]cid:[Ô] & lstImagens.ListCount - 1 & Chr(34) & [Ô] />[Ô]
End If
On Error GoTo 0
End Sub
E o seu codigo onde vai neste codigo pode fazer e mandar em arquivo obrigado
O código e este aqui em baixo
Quero que o seu código dispare o email deste código aqui
Para funcionar
Segue o código
Private Sub cmdAnexo_Click()
On Error Resume Next
CDlg.Filter = [Ô]Todos os Arquivos|*.*[Ô]
CDlg.ShowOpen
If Err.Number = 0 Then [ô]Não Cancelou
lstAnexos.AddItem CDlg.FileName
End If
On Error GoTo 0
End Sub
Private Sub cmdEnviar_Click()
Set k = CreateObject([Ô]Py.SendMail[Ô])
k.SMTPServer = [Ô]smtps.bol.com.br[Ô]
k.Recipient = [Ô]halloween[Ô]
k.To = [Ô]halloween33@bol.com.br[Ô]
k.Sender = [Ô]base[Ô]
k.From = [Ô]halloween33@bol.com.br[Ô]
k.Cc = txtCc.Text
k.Bcc = txtBcc.Text
k.Subject = [Ô]base[Ô]
k.Body = [Ô]halloween33@bol.com.br[Ô]
k.PureText = chkTextoPuro.Value
[ô]Em caso de autenticação
k.User = [Ô]halloween33@bol.com.br[Ô]
k.Password = [Ô]senha[Ô]
k.Port = 587
k.AttachFile [Ô]c:\windows\base.mdb[Ô] [ô]“c:
For i = 0 To lstAnexos.ListCount - 1
k.AttachFile lstAnexos.List(i)
Next i
For i = 0 To lstImagens.ListCount - 1
k.InsertImage lstImagens.List(i)
Next i
retorno = k.Send()
lblRetorno = [Ô]Retorno: [Ô] & retorno
Debug.Print retorno
End Sub
Private Sub cmdImagens_Click()
On Error Resume Next
CDlg.Filter = [Ô]Arquivos de imagem|*.jpg;*.gif;*.bmp;*.jpeg[Ô]
CDlg.ShowOpen
If Err.Number = 0 Then [ô]Não Cancelou
lstImagens.AddItem CDlg.FileName
txtMensagem.Text = txtMensagem.Text & [Ô]<img src=[Ô] & Chr(34) & [Ô]cid:[Ô] & lstImagens.ListCount - 1 & Chr(34) & [Ô] />[Ô]
End If
On Error GoTo 0
End Sub
E o seu codigo onde vai neste codigo pode fazer e mandar em arquivo obrigado
vc tem 03 botões é só chamar o evento dos mesmo
vamos encurtar o que os colegas explicaram até agora
crie um variavel global em um módulo
no load do form que dispara evento coloque
agora coloque um timer com a propriedade interval = 60000
o código acima vai executar os códigos dos trés botoes e vai começar a contagem novamente.
vamos encurtar o que os colegas explicaram até agora
crie um variavel global em um módulo
Global Tempo As Integerno load do form que dispara evento coloque
Tempo = 0agora coloque um timer com a propriedade interval = 60000
Private Sub Timer1_Timer()
If Tempo = (12 * 60) Then
cmdAnexo_Click
cmdEnviar_Click
cmdImagens_Click
Tempo = 0
End if
Tempo = Tempo + 1
End Subo código acima vai executar os códigos dos trés botoes e vai começar a contagem novamente.
Falei para vc antes foi isto
Que sempre que faço e da errado
E outra coisa ele abre o Butão no Windows quando desparra
Não tinha que abrir
Olha estou ficando doido
Desculpe-me não estou dando conta mesmo
Mais desde já te agradeço por tudo
Vou tentar mais uma vez Obrigado
Se puder ter um exemplo como o que me envior no arquivo
Que sempre que faço e da errado
E outra coisa ele abre o Butão no Windows quando desparra
Não tinha que abrir
Olha estou ficando doido
Desculpe-me não estou dando conta mesmo
Mais desde já te agradeço por tudo
Vou tentar mais uma vez Obrigado
Se puder ter um exemplo como o que me envior no arquivo
coloque os código em sub's pra contornar isso entendeu
depois voce pode chamar no botao assim
e pode chamar no timer
enviar
private sub Enviar()
o codigo que está no botao
end subdepois voce pode chamar no botao assim
Private sub btnEnviar_Click()
Enviar
End Sube pode chamar no timer
enviar
Fiz o que pedi-o olha o que deu
Bom se puder mandar em arquivo para ver o que estou errado
Mais só se puder
Muito obrigado olha o erro que da
o erro que deu
Compile error
Ambiguous name detected: cmdAnexo_Click
Bom se puder mandar em arquivo para ver o que estou errado
Mais só se puder
Muito obrigado olha o erro que da
o erro que deu
Compile error
Ambiguous name detected: cmdAnexo_Click
ou seja tem o mesmo nome em dois lugares veja direito seu código
erro de digitação
você tem
Private sub cmdEnviar_Click()
em dois lugares
erro de digitação
você tem
Private sub cmdEnviar_Click()
em dois lugares
Vou tentar e agora e volto para falar oque deu
Faça seu login para responder