Enviando e-mail com Cdonts ou CDOSYS

[alissong 1]

Pessoal, criei esse comando para enviar e-mail com cdonts ou cdosys e selecionei na referencia do projeto biblioteca "Microsoft CDO for Exchange 2000 library. Veja o comando:Private Sub Command1_Click()Dim sucesso As Boolean 'Dim mensagem As StringSet m = CreateObject("CDO.Message")m.From = "meuemail@arq.ufmg.br"m.To = txtdestinom.Subject = txtassuntom.TextBody = txttextosucesso = m.SendIf sucesso Then mensagem = "O E-MAIL ENVIADO COM SUCESSO!"Else mensagem = "O E-MAIL NÃO FOI ENVIADO COM SUCESSO!"End IfMsgBox mensagem, vbInformation, "Enviando emails usando ASPMAIL"End SubMas, não está enviando.O que eu fiz de erro.

[Dennys Lopes 0]

Se eu não me engano faltou voce autenticar o Login e a Senha para poder enviar o email

 

Segue um exemplo:

 

Private Sub EnvioDeEmail()Dim Msg As CDO.MessageDim Cof As CDO.ConfigurationDim CampSet Msg = New CDO.MessageSet Cof = New CDO.ConfigurationSet Camp = Cof.Fields  With Camp  .Item(cdoSendUsingMethod) = 2   ' cdoSendUsingPort  .Item(cdoSMTPServer) = "Servidor.SMTP"  .Item(cdoSMTPConnectionTimeout) = 10 ' quick timeout  .Item(cdoSMTPAuthenticate) = 1  .Item(cdoSendUserName) = "Usuario"  .Item(cdoSendPassword) = "Senha"  .Update End WithWith Msg  Set .Configuration = Cof	  .AddAttachment "caminho do arquivo1"	  .AddAttachment "caminho do arquivo2"	  '...	  .AddAttachment "caminho do arquivoN"	  .To = """user"" <email@email.com>"	  .From = """user"" <email@email.com>"	  .Subject = "Teste de CDOSYS"	  .SendEnd WithEnd Sub

[alissong 1]

Dennys Lopes,Não entendir para que serve esses caminhos dos arquivo1, arquivo2 e arquivoN. Você pode me explicar melhor..AddAttachment "caminho do arquivo1".AddAttachment "caminho do arquivo2" '....AddAttachment "caminho do arquivoN"Um abraço.

[Dennys Lopes 0]

Seria os arquivos que vao anexo ao email ... o caminho desses arquivos

[alissong 1]

Dennys Lopes,Está funcionando beleza, muito obrigado pela ajuda. Veja o código complento:Private Sub Command1_Click()Dim Msg As CDO.MessageDim Cof As CDO.ConfigurationDim mensagem As StringDim sucesso As BooleanDim CampSet Msg = New CDO.MessageSet Cof = New CDO.ConfigurationSet Camp = Cof.FieldsIf txtdestino.Text = Empty ThenMsgBox " Digite o e-mail do destinatário", vbExclamation, "Campo Obrigatório"txtdestino.SetFocusExit SubEnd IfIf txtassunto.Text = Empty ThenMsgBox " Digite o assunto da mensagem", vbExclamation, "Campo Obrigatório"txtassunto.SetFocusExit SubEnd IfWith Camp .item(cdoSendUsingMethod) = 2 ' cdoSendUsingPort .item(cdoSMTPServer) = "arq.ufmg.br" .item(cdoSMTPConnectionTimeout) = 10 ' quick timeout .item(cdoSMTPAuthenticate) = 1 .item(cdoSendUserName) = "compras" .item(cdoSendPassword) = "mgxxxxxxx" .UpdateEnd WithWith Msg Set .Configuration = Cof .AddAttachment (txtanexo.Text) .To = txtdestino.Text .From = """compras"" <xxxxxxx@arq.ufmg.br>" .Subject = txtassunto.Text .TextBody = txttexto.Text .SendEnd WithIf sucesso = True Thenmensagem = "O E-MAIL NÃO FOI ENVIADO COM SUCESSO!"Elsemensagem = "O E-MAIL ENVIADO COM SUCESSO!"End IfMsgBox mensagem, vbInformation, "Enviando emails usando ASPMAIL"End SubPrivate Sub cmdAtt_Click()On Error Resume NextComDlg.InitDir = gstrCurrPathComDlg.Filter = "All Files (*.*)|*.*"ComDlg.DialogTitle = " Select Attachment File"ComDlg.Flags = cdlOFNFileMustExist Or cdlOFNHideReadOnlyComDlg.ShowOpenIf Err = 32755 Then Exit SubgstrCurrPath = ComDlg.FileNameMe.txtanexo.Text = ComDlg.FileNameEnd SubPrivate Sub cmdfechar_Click()Unload form_emailEnd SubPrivate Sub cmdTo_Click()form_para.ShowEnd SubLopes, esse código ".From = """compras"" <xxxxxxx@arq.ufmg.br>"" é o e-mail que envia os dados que está no outlook express não tem como todos os e-mail enviados ir para a pasta do outlook Itens Enviados.Um abraço.Alisson G.