[VB6] Errore in avvio, sistema invio mail

[steck]

This is problem!!!!

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]

ti sposto in visual basic

[*pao]

o generi un file di installazione o copi manualmente nella macchina di destinazione tutte le dll, e gli ocx.

[steck]

Ho provato a fare l'intallazione... am una volta installata mi da un errore di Run time
??

[steck]

Run-Time error "32002"
Unspecified Faliure has occorred

Che mi dite???
Grazie Steck

[steck]

[meronet]

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]

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]

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]

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?