oi pessoal  blz ,eu peguei  um envio de email que quando eu aperto que quero enviar aparece um msgbox " email enviado com sucesso" , mas quando eu aperto que NAO quero enviar ele aparece a mesma mensagem , nao consegui colocar um modo de aparecer a mensagem de nao envio, consegui colocar outras mensagens agora essa nao , alguem tem alguma ideia?

 

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
   ' Aki eu começo a enviar o email

     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 "Not logged on"
     End Select
  Else
     MsgBox "Não contém Dados suficientes para envio :" & vbCrLf & CheckErrors, vbCritical, "CANCELADO"
  End If

Em que momento pergunta se vc quer enviar o email ?

Outra coisa qual o Valor que retorna em SuccessInt qdo vc responde Sim e qual o valor qdo vc responde Não ?

 

O problema deve estar ai tanto um qdo outro o SuccessInt = 0, por isso aparece Email Enviado com Sucesso....

 

sim mas como, fazer pra aparecer um outra mensagem dizendo q a mensagem nao foi enviada , foi oq eu ano consegui fazer entende,

Desculpe Korn, mas não entendi ?! Você não tem controle sobre a function MailSend(MyMail)....precisaria dar uma olhada para avaliar....

se quiser da uma olhada, eu mando sem probs