PDA

Visualizza la versione completa : [VB6] Errore in avvio, sistema invio mail


steck
20-12-2004, 16:44
This is problem!!!! :messner:

Ho sviluppato un piccolo sistema in Visual 6 che invia un'email con allegato...!
Dal mio computer, dove ci sta visual installato, funge alla perfezione; ma quando avvio in programmino da una macchina diversa (che non ha il visual 6 installato) genera questo errore

errore msapi32.ocx
Di seguito il codice che ho utilizzato


MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose
MAPIMessages1.RecipDisplayName = "Roberto"
MAPIMessages1.RecipAddress = mailDestinatario.Text
MAPIMessages1.MsgSubject = oggetto.Text
MAPIMessages1.MsgNoteText = "Invio email FlatFoot"
MAPIMessages1.AttachmentPathName = filePercorso.Text
MAPIMessages1.Send True

Grazie
By Steck.... Ps: sono un po' negato in visual!!!

xegallo
20-12-2004, 17:02
ti sposto in visual basic

*pao
20-12-2004, 17:05
o generi un file di installazione o copi manualmente nella macchina di destinazione tutte le dll, e gli ocx.

steck
21-12-2004, 09:00
Ho provato a fare l'intallazione... am una volta installata mi da un errore di Run time
??

steck
21-12-2004, 10:23
Run-Time error "32002"
Unspecified Faliure has occorred

Che mi dite???
Grazie Steck

steck
22-12-2004, 00:19
:dhò: :dhò:

meronet
19-01-2005, 10:05
ciao a tuttti..una curiosità...
io sul mio pc ho settato la casella di posta tramite Microsoft Outlook
ho inserito il codice...soprastante..è quando lo eseguo mi chiede di
configurare la posta con outlook Express...
Mi schiarite le idee...
saluti a tutti...

Dardino
19-01-2005, 11:13
fai un trapping dell'errore mettendo il blocco di istruzioni in un blocco Try - End Try come segue:


Try
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose
MAPIMessages1.RecipDisplayName = "Roberto"
MAPIMessages1.RecipAddress = mailDestinatario.Text
MAPIMessages1.MsgSubject = oggetto.Text
MAPIMessages1.MsgNoteText = "Invio email FlatFoot"
MAPIMessages1.AttachmentPathName = filePercorso.Text
MAPIMessages1.Send True
Catch ex As Exception
Msgbox ex.Message
End Try

e dicci che cosa ti restituisce la MessageBox

meronet
19-01-2005, 15:43
vi ringrazio per la pronta risposta
ma nel scrivere l' istruzione try
mi dà in rosso
le due righe seguenti
devo per caso instanziare qualche variabile?
Catch ex As Exception

End Try

xegallo
19-01-2005, 15:45
Originariamente inviato da meronet
vi ringrazio per la pronta risposta
ma nel scrivere l' istruzione try
mi dà in rosso
le due righe seguenti
devo per caso instanziare qualche variabile?
Catch ex As Exception

End Try
lo stai facendo in vb.net?

Loading