Ciao ragazzi
sto cercando di creare un programma simile ad Outlook, usando MAPI etc etc, pero' quando cerco di inviare un'email dal programma mi da' un fastidiosissimo messaggio da parte di Outlook che dice:

----
Un programma sta tendando d'inviare il seguente messaggio di posta elettronica con l'account in uso:

.....@libero.it

Oggetto: Prova


Inviare il messaggio?

---------------------------------------
Vi mostro il codice che utilizzo per spedire le email:

Private Sub Command1_Click()

On Error GoTo ErrorOccuring

On Error GoTo ErrorHandler
SUPEREMAIL.MAPIMessages1.Compose
SUPEREMAIL.MAPIMessages1.RecipDisplayName = txtA.Text
SUPEREMAIL.MAPIMessages1.MsgSubject = txtOggetto.Text
SUPEREMAIL.MAPIMessages1.MsgNoteText = txtTesto.Text
SUPEREMAIL.MAPIMessages1.AddressResolveUI = True
SUPEREMAIL.MAPIMessages1.ResolveName

If Attachments.ListCount <> 0 Then
SUPEREMAIL.MAPIMessages1.AttachmentPathName = Attachments.List(Attachments.ListIndex)
'PER ALLEGATI MULTIPLI
'SUPEREMAIL.MAPIMessages1.Attachment = txtFileName1.Text & ";" & txtFileName2.Text
End If

SUPEREMAIL.MAPIMessages1.Send
Exit Sub
ErrorHandler:
MsgBox MAPIERRORS(Err.Number, Err.Description), vbExclamation, App.Title
Err.Clear

Exit Sub
ErrorOccuring:
mError.RaiseError Err.Number, Err.Source

End Sub


Spero che qualcuno mi aiuti
Grazie mille
Claudio