PDA

View Full Version : [visual basic 6]Inviare e mail senza appoggiarmi a nessun applicativo


XRaziel
22-08-2008, 09:55
Ciao a tutti sono nuovo e volevo chiedervi aiuto su un mio problema:)

Ho scritto un programma in vb6 per visualizzare tutti i codici delle cartucce di una stampante, il problema arriva quando devo gestire gli ordini tramite l'invio di una mail...:mc: mi potete dire come fare e se possibile postare un esempio di codice?:help:

PS: L'invio della mail deve avvenire senza appogiarmi a nessun programma l'invio deve essere trasparente a chi utilizza il programma

XRaziel
25-08-2008, 15:56
Non c'è nessuno che mi può aiutare??

Sciakallo
25-08-2008, 23:24
Cerca info sulla libreria VBSendMail.dll.(http://www.freevbcode.com/ShowCode.Asp?ID=109).
E' di facilissima implementazione e da ottimi risultati.

Se hai problemi contattami :)

XRaziel
26-08-2008, 08:49
Grazie Sciakallo! sembra proprio che faccia al caso mio, da quanto ho capito, devo copiare il codice da lui riportato (i tre punti qui sotto) per un semplice invio della mail giusto?
:read:
1) ' Module Level Declaration (WithEvents optional but recommended)
Private WithEvents poSendMail as vbSendMail.clsSendMail

2) ‘ form load or module main sub…
Private Sub Form_Load()

‘ initialize the component
Set poSendMail = New clsSendMail

End Sub

3) ‘ use a command button to send the message
Private Sub cmdSend_Click()

'Assumes you have a form with text boxes named as below
poSendMail.SMTPHost = txtServer.Text
poSendMail.From = txtFrom.Text
poSendMail.FromDisplayName = txtFromName.Text
poSendMail.Recipient = txtTo.Text
poSendMail.RecipientDisplayName = txtToName.Text
poSendMail.ReplyToAddress = txtFrom.Text
poSendMail.Subject = txtSubject.Text
poSendMail.Attachment = txtFileName.txt ‘ file attachment(s), optional
poSendMail.Message = txtMsg.Text
poSendMail.Send

End Sub

XRaziel
27-08-2008, 16:32
Fatto!!!!!!!!!!!
Partito il debug e inserito l'smtp e l' invio e stato immmediato:p !
Qualche piccola modifica all' esempio incluso e avrò creato il form di invio perfetto per il mio programma :), solo un' ultima cosa :stordita: devo effettuare un setup di primo avvio e devo eseguire la registrazione della vbSendMail.dll in modo silent evitando la conferma della registrazione della dll, come fare :confused: