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