Google
 

it » comp » appl » access

Invio e-mail che mostra pannellino invio

di "RobertoA"
il Wed, 11 Jul 2007 16:45:49 +0200
newsgroups it.comp.appl.access
message-id <4694ed7b$1@newsgate.x-privat.org>

Da un'applicazone Access 2003 uso il seguente codice per inviare una e-mail

=================================
    Dim SendMail As clsMAPISendMail

    Set SendMail = New clsMAPISendMail

    SendMail.Clear
    SendMail.AddTo "", destinatario
    SendMail.Subject = oggetto
    SendMail.Body = messaggio
    SendMail.FileAdd (allegato)
    SendMail.SendImmediately = True

    dummy = SendMail.Send
    If dummy > 0 Then
        MsgBox SendMail.MAPIError(dummy), vbCritical Or vbOKOnly, "Errore 
nell'invio del messaggio"
        Else
        MsgBox "Messaggio inviato a " & UCase$(destinatario) & " con 
successo" & Chr(10) & "Il messaggio inviato e' disponibile nella POSTA 
INVIATA del client di posta predefinito", vbInformation Or vbOKOnly, "Invio 
del messaggio riuscito"
        End If

    Set SendMail = Nothing
================================

Funziona tutto come desiderato a parte un pannellino che mi chiede conferma 
dell'invio imminente, credo sia un pannellino che butta fuori Outlook 
Express (il client email predefinito)
In pratica ogni volta oltre a cliccare sul tasto INVIA EMAIL del gestionale, 
devo anche confermare una seconda volta l'invio a sto minghiazza di 
pannellino
Posso eliminare questa richiesta di conferma o devo tenermela a vita ?
Ciao e grazie
RobertoA

Risposte

Tutti i messaggi della discussione