[VB6] Conferma di invio con MAPI

[Veronica80]

Ciao ragazzi mi sono incartata su un punto del mio controllo MAPI.

Io invio e-mail con allegati tramite il controllo MAPI. Il problema è che registro tutti gli invii su un database access e quindi avrei bisogno di sapere se il messaggio è stato effettivamente inviato.

Ho provato a usare:

If MAPIMessages1.MsgSent = True Then
        MsgBox "Spedito"
    Else
        MsgBox "Non spedito"
    End If

Ma non mi sembra funzioni dacchè mi da sempre la msgbox "Non Spedito" anche quando l'ha spedito!

Questo è il codice che uso per spedire le mails e funziona:

    destinatario = "miaemail@mioprovider.it"
    MAPISession1.DownLoadMail = False
    MAPISession1.SignOn
    With MAPIMessages1
        .SessionID = MAPISession1.SessionID
        .Compose
        .RecipAddress = destinatario
        .RecipDisplayName = "Mio Destinatario"
        .MsgSubject = "Mio Oggetto"
        .MsgNoteText = "Mio Testo della mail"
    End With
    MAPIMessages1.AttachmentIndex = 0
    MAPIMessages1.AttachmentPathName = "mioAllegato.txt"
    MAPIMessages1.AttachmentName = "nomeMioAllegato.txt"
    MAPIMessages1.Send
    MAPISession1.SignOff

Grazie a tutti!

[oregon]

Penso che se la Sent non ti da' errori, allora il messaggio e' stato spedito.

Ovviamente, Che sia stato regolarmente ricevuto e' un'altra storia ...

[Veronica80]

in che senso?
Il problema è che se mi desse errori il codice per scrivere l'invio sul db come lo gestisco?

[oregon]

Non capisco ...

[Veronica80]

Scusa son io che non capisco...

dove lo trovo il valore booleano che mi dice se l'email è spedita o no?

La funzione Sent restituisce sempre false (anche se il messaggio è spedito).

Se devo aspettare errori (come mi suggerisci) non sarebbe molto affidabile. Se per esempio nella finestrella di conferma di invio del MAPI io clicco annulla non mi da errori però mi segnerebbe il messaggio come inviato nel db (visto che non avendo errori avvierebbe la scrittura sul db)...aiuto! Mi sto cuocendo il cervello! VVoVe:

[oregon]

Sto dicendo che se la

MAPIMessages1.Send

non ti restituisce errori, allora puoi ritenere che sia stata spedita.

[Veronica80]

E io sto dicendo che se io clicco Annulla all'invio della mail non mi restituisce errori ma la mail non è spedita!

[oregon]

Devi inserire il controllo d'errore all'inizio della sub

    On Error Goto errh

poi il tuo codice fino a

    MAPIMessages1.Send True  ' Nota il True
    
xit:
    MAPISession1.SignOff
    Exit Sub
    
errh:
  If Err.Number = 32001 Then MsgBox "L'utente NON ha inviato il messaggio"
  Resume xit

[Veronica80]

mmm cosi facendo mi apre la finestra di outlook...ed ho visto che se ci son problemi di connessione mi si incarta tutto il programma... (poi non so se è il mio pc matto). e devo usare termina processo...


non si può fare senza mettere il true dopo il send? Così non mi apre la finestra nuovo messaggio di outlook!

Grazie ancora!


ma sto msgSent che l'han fatto a fare?!?