Korn valeu pelo projeto ele "funcionou" na hora de receber....mais quando mandei ele ñ mandou direito.....vou fazer outros teste pois apenas fiz um...mas valeu....

mandei um exemplo utilizando o send mail, esta na troca de arquivo com o nome de VBSENDMAIL

 

falow galera

Outro problema agora.....conseguir fazer aquele programinha do Korn rodar...ele ENVIA e RECEBE normalmente....mas tem um porem...na hora de receber....o Outlook manda uma mensagem mais ou menos assim... "Tem alguem enviando um e-mail em seu nome deseja enviar?" -- SIM ou NÃO -- nessa seria ruim pois o usuario descobrirar que eu estou mandando e-mail e porem ira ficar curioso....pois sera q ñ tem um metodo de mandar sem ter esta pergunta???? ou fazer um código que depois de tantos segundo pelo VB a tecla ENTER fosse pressionda "sozinha" atraves de codigo fazendo assim o e-mail sendo enviado sem precisar da autorização DIRETA do usuario...

 

Preciso muito da ajuda de vocês....blz.....

mas que mensagem é essa irmao?????? sera alguma dessas aki???//

 

  Dim nameFile As String
  Dim i As Integer

  MailContents MyMail, txtSendSubject, txtSendText

  If List1.ListItems.Count > 0 Then
     For i = 1 To List1.ListItems.Count
         nameFile = ExtractFileName(List1.ListItems(i).Text)
         MailAddAttach MyMail, nameFile, List1.ListItems(i).Key
     Next
  End If

  If CheckErrors = "" Then

     SuccessInt = MailSend(MyMail)
     Select Case SuccessInt
         Case 0
              MsgBox "Email Enviado com Sucesso."
         Case Is > 0
              MsgBox "Escolha um Email da Lista." + MyMail.Recips(SuccessInt).Name
         Case -1
              MsgBox "Selecione na Lista de Email um Destinátario."
         Case -2
              MsgBox "Você não está Conectado na Internet."
     End Select
  Else
     MsgBox "Não contém Dados suficientes para envio :" & vbCrLf & CheckErrors, vbCritical, "CANCELADO"
  End If

 

porqu se nao for deve ser alguma mensagem de segurnaça da internet que vc pode configurar creio eu no proprio outlook