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