CODIGO DE EMAIL

RMEA 20/08/2013 21:52:28
#427869

Estou com este código não estou conseguindo por ele em .exe
e da este erro na hora de testa

The MSDN collection does not exist. Please reinstall MSDN

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) = [Ô]email@bol.com.br[Ô] [ô] informe o usuario de autenticação
.Item(cdoSendPassword) = [Ô]55555555[Ô] [ô]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