MELHOR ESTE CODIGO E TESTA

RMEA 21/08/2013 02:13:53
#427875

Ola estou come este código aqui abaixo se puder testar ele
E colocar o time para ele disparar duas vez por dia
Ele envia um e-mail com anexo
quem pode me ajudar


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(cdoSMTPServerPort) = 587[ô]**** define a porta do SMTP. IMPORTANTE!!!!
.Item(cdoSMTPConnectionTimeout) = 10 [ô] quick timeout
.Item(cdoSMTPAuthenticate) = 1
.Item(cdoSendUserName) = [Ô]aqui email[Ô] [ô] informe o usuario de autenticação
.Item(cdoSendPassword) = [Ô]aqui[Ô] [ô]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