AJUDA PARA UM CODIGO VB6
Olha ai da na mesma coisa
Não sei mais oque fazer
Não sei mais oque fazer
Desculpe - me falar assim
Quanto você quer para fazer e me mandar o arquivo
Nossa Desculpe - me
Mais eu não vejo outra oternativa
Quanto você quer para fazer e me mandar o arquivo
Nossa Desculpe - me
Mais eu não vejo outra oternativa
Olha aqui se estou certo.
Quer código que dispara a cada doze horas.
[txt-color=#e80000]Você tem.[/txt-color]
Ele executa
[txt-color=#007100]cmdAnexo_Click()[/txt-color]
Anexa o arquivo sozinho.
executa
[txt-color=#0000f0]cmdImagens_Click()[/txt-color]
coloca a imagem sozinho
[txt-color=#007100]cmdEnviar_Click()[/txt-color]
e envia sozinho.
é isto que estou entendendo ou não é.
Descreve como você quer que faça.
Quer código que dispara a cada doze horas.
[txt-color=#e80000]Você tem.[/txt-color]
Ele executa
[txt-color=#007100]cmdAnexo_Click()[/txt-color]
Anexa o arquivo sozinho.
executa
[txt-color=#0000f0]cmdImagens_Click()[/txt-color]
coloca a imagem sozinho
[txt-color=#007100]cmdEnviar_Click()[/txt-color]
e envia sozinho.
é isto que estou entendendo ou não é.
Descreve como você quer que faça.
e tudo isto que vc falo
So não entendi colocar a imagem sozinho
Não quero que ele quando despare tem que clicar em um buntão no windows
Mais e isto ai que vc falo
So não entendi colocar a imagem sozinho
Não quero que ele quando despare tem que clicar em um buntão no windows
Mais e isto ai que vc falo
Quero que envie para o e-mail x um arquivo x
Que desparres só
De 12 em 12 horas
E simples só que não estou dando conta
Obrigado pela sua atenção
Que desparres só
De 12 em 12 horas
E simples só que não estou dando conta
Obrigado pela sua atenção
Eu nunca tive essa oportunidade de ver esse código.
Como vai anexar um arquivo sozinho.
Como vai saber qual arquivo você quer.
Futorologia,estamos aquém disto.
[txt-color=#e80000]O que pode fazer é deixar pré definido para ser
executado a cada 12 horas.[/txt-color]
Não existe isto entre nos seres humanos.
Como vai anexar um arquivo sozinho.
Como vai saber qual arquivo você quer.
Futorologia,estamos aquém disto.
[txt-color=#e80000]O que pode fazer é deixar pré definido para ser
executado a cada 12 horas.[/txt-color]
Não existe isto entre nos seres humanos.
Eu tinha uma assim
so que agendava pelo agendamento do windows
so que esta dando erro agora
oque quero e so um codigo que envie um email com arquivo
que se execute de 12 em 12 horas
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) = [Ô]senha[Ô] [ô]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
so que agendava pelo agendamento do windows
so que esta dando erro agora
oque quero e so um codigo que envie um email com arquivo
que se execute de 12 em 12 horas
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) = [Ô]senha[Ô] [ô]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
vc sabe como configurar o py.sendemail
Mais me responde tem como fazer
oque falamos
oque falamos
Cara em vez de focar no time fora em um if caso esse cheja o problema, salve a ultima hora que foi disparado a função... então você cria uma variavél para a hora da próxima vez e deixa o timer rodando lá em 1 e 1 min..
proximaHora = HoraDaUltimaFuncao + (6*60) // em minutos
if (horaAtual (em minutos) = proximaHora) then
end if..
acho mais simples que quebrar a cabeça com o timer.. se gostar da idéia posso montar um código simples para você.. ;)
proximaHora = HoraDaUltimaFuncao + (6*60) // em minutos
if (horaAtual (em minutos) = proximaHora) then
end if..
acho mais simples que quebrar a cabeça com o timer.. se gostar da idéia posso montar um código simples para você.. ;)
Faça seu login para responder