Newsgroup: it.comp.lang.visual-basic
Titolo: invio mail tramite modulo vb

ciao ragazzi,
da tempo mi trovo dinanzi ad un annoso problema.....fin quando
lavoravo su nt avevo moduli access o macro di excel vb che alla fine
del lavoro inviavano una mail in automatico....
appena passato vs xp,  i maledetti blocchi di protezione (che non c'è
di eliminarli del tutto....) fanno comparire il fatidico
messaggio....un programma esterno sta tentando di utilizzare la posta
elettronica per l'invio di un messaggio.... inviare? si o no?.... io
vorrei che questa domanda non mi venga posta visto che l'oggetto deve
essere inviato anche in orari dove non sono presente a lavoro....
c'è la possibilità di utilizzare magari un altro applicativo che
"sorpassi" questo limite?
grazie a tutti


La risposta è sempre quella: anziché utilizzare il gestore di posta predefinito,
il programma deve colloquiare direttamente con un server SMTP (tramite Winsock),
come mostrato in questo esempio:
http://www.freevbcode.com/ShowCode.Asp?ID=109
Bye
Raf
-----------------------------------------------------
Funk: cooler than the other side of the pillow.
--------------------------------------------------------------------------------
La mia Cartella di Posta in Arrivo è protetta con SPAMfighter
969 messaggi contenenti spam sono stati bloccati con successo.
Scarica gratuitamente SPAMfighter!

mi puoi aiutare ad utilizzarlo ?
grazie mille
Rafunk ha scritto:



Cosa non ti è chiaro dell'articolo cui punta il link che ti ho indicato?
Scarica i sorgenti e dai un'occhiata al progetto SendMailExample.vbp, che è ben
commentato.
Scorriti il codice di frmMain.frm, a me non è sembrato particolarmente ostico da
capire...


ciao raf,
purtroppo io non sono tanto bravo in visual basic....
ho provato ad inserire nel mio modulo questa stringa d'esempio ma non
riesco ad andare avanti....cosa devo modificare? ti prego aiutami.....
grazie mille
 ' Module Level Declaration (WithEvents optional but recommended)
Private WithEvents poSendMail as vbSendMail.clsSendMail
' form load or module main sub...
Private Sub Form_Load()
' initialize the component
Set poSendMail = New clsSendMail
End Sub
 ' 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
Rafunk ha scritto:


 grazie mille
Prima di tutto: stai lavorando in VB6 o VBA?
Hai aggiunto al progetto il riferimento alla libreria vbSendMail.dll (che è
nello zip)?
Bye
Raf
P.S. Quota rispondendo *sotto* il testo originale, come faccio io...


ciao raf uso vb6...come faccio ad inserirlo nel mio progetto?
scusami...sono un po' ignorantuccio vero? :(((
ps ho risposto bene?
ns...@inwind.it
 ha scritto:


 ps ho risposto bene?
No ;-))) intendevo dire "sotto il testo" nell'ambito della risposta, non che
devi rispondere al primo messaggio del thread!
Se non č ancora chiaro leggi qui:
http://www.freewebz.com/iosononiubbo/iosononiubbo.htm#quotare
--------------------------------------------------------------------------------
La mia Cartella di Posta in Arrivo č protetta con SPAMfighter


 La mia Cartella di Posta in Arrivo è protetta con SPAMfighter


 cosa ho combinato...:))) grazie ancora
Potrebbe dipendere dal fatto che l'indirizzo host SMTP non sia compatibile con
il tuo provider ADSL.
Se ho capito bene hai Wind (Libero)... dai un'occhiata qui:
http://assistenza.libero.it/posta/configurazioni/win8.phtml
-- 
Bye
Raf
-----------------------------------------------------
Funk: cooler than the other side of the pillow.


raf la mia è una mail aziendale....per il regsv32 invece devo fare
qualcosa?
Rafunk ha scritto:


 qualcosa?
Allora se la mail deve "girare" nella vostra intranet, probabilmente dovresti
mettere l'indirizzo del server SMPT interno (se usi outlook potresti guardare
nelle proprietą del tuo account aziendale, alla voce "server della posta in
uscita").
Per REGSVR32, se riesci a compilare e eseguire il tuo progetto senza errori,
dovrebbe significare che vbSendMail.dll č gią registrata.
Ciao
Raf
--------------------------------------------------------------------------------
La mia Cartella di Posta in Arrivo č protetta con SPAMfighter


 La mia Cartella di Posta in Arrivo è protetta con SPAMfighter


 :((
Macro in che senso? Non stavi usando VB6?
Hai provato ad eseguire il progetto di esempio che c'č nello ZIP?
Intendo SendMailExample.vbp, lo avvii, compili i vari campi con i valori che
utilizzi nel tuo programma e vedi.
Inoltre potresti guardare il log del server SMTP.
Ciao
Raf
--------------------------------------------------------------------------------
La mia Cartella di Posta in Arrivo č protetta con SPAMfighter
