ENVIAR EMAIL COM DE 1 ANEXOS S/OUTLOOK

VPVJUNIOR 06/09/2010 16:17:01
#352352

Olá pessoal, eu de novo!

Peguei um código de enviar email sem usar outlook aqui mesmo no forum, mas ele só faz enviar mensagem e o que eu queria era enviar a mensagem junto com 2 arquivos anexos tb sem utilizar o outlook, gostaria de saber se tem como eu fazer isso segue abaixo o códgo:

Private Sub cmdTeste_Click()
EnvioDeEmail

End Sub

Private Sub cmdVisit_Click()
Unload Me

End Sub

Public Function EnvioDeEmail()

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


With Camp

.Item(cdoSendUsingMethod) = 2 [ô] cdoSendUsingPort
.Item(cdoSMTPServer) = SMTP.Text
.Item(cdoSMTPConnectionTimeout) = 20 [ô] quick timeout
.Item(cdoSMTPAuthenticate) = 1
.Item(cdoSendUserName) = User.Text
.Item(cdoSendPassword) = LCase(PWR.Text)
.Update

End With

With Msg

Set .Configuration = Cof

.To = Para.Text
.From = De.Text
.Subject = Assunto.Text
.TextBody = Mensagem.Text
.CC = CC.Text
.Send

End With

End Function