Newsgroup: it.comp.lang.visual-basic
Titolo: Doppio invio mail

Ciao a tutti,
Sto lavorando ad un' applicazione VB6; ho una form con una ListBox che mostra i file contenuti in una cartella.
Cliccando su una riga della list box seleziono il file che mi interessa ed esso viene copiato con tanto di percorso in una TextBox :
Private Sub ElencoFile_Click()
 
    Check1.Visible = True  'é il pulsante di invio mail
 
    'Il percorso è sempre quello quindi lo memorizzo
    Dim Percorso As String
 
    Percorso = "J:\Folitec\DB Da SQL Server\Ricette macine\Segnalazioni\"
 
    'Il file selezionato finisce in una textbox con l'aggiunta del percorso
    Me.FileDaInviare.Text = Percorso & Me.ElencoFile.List(ElencoFile.ListIndex)
 
End Sub
Fatto ciò clicco sul pulsante e mi viene generato il messaggio mail con in allegato il file :
Private Sub Check1_Click()
 
    Check1.Value = 0
    Dim O As Object
    Dim m As Object
 
    Set O = CreateObject("Outlook.Application")
    Set m = O.CreateItem(0)
 
    m.To = "
m.po...@lavazza.it
"
    m.Subject = "Richiesta modifica ricetta macina"
    m.Body = "In allegato il file con le modifiche richieste" & vbNewLine & vbNewLine & "Saluti"
    m.Attachments.Add FileDaInviare.Text
    m.Display
 
End Sub
Il tutto funziona ma perchè mi compaiono 2 messaggi di invio mail e non uno solo?
grazie
Marco

 Ciao a tutti,
metti uno stop alla load e segui passo passo l'esecuzione: arrivaci da 
solo! ;o)
-- 
----- Italliaaaaa 3227! -----
Guerrieriii....giochiamo a fare la guerraaa!.... 
Guerrieriii....giochiamo a fare la guerraaa!.... 
Guerrieriii....giochiamo a fare la guerraaa!....
I guerrieri della notte (1987)

Scusami ma se ho postato il problema è perchè da solo non arrivo alla soluzione!!
Ho fatto come hai detto ma non vedo nulla di particolare a parte che ripete il ciclo 2 volte e non so come fermarlo...

 che ripete il ciclo 2 volte e non so come fermarlo...
tu eseguendo passo passo VEDI QUANDO (in corrispondenza di quale 
istruzione) passa una volta di li...ti annoti guardi ispezioni chi 
chiama....continuando vedi QUANDO E PERCHE' ripassi di li!
....prova!
-- 
----- Italliaaaaa 3227! -----
Io sono Attila:
A come atrocità,
doppia T come terremoto e tragedia,
I come ira di dio,
L come laco ti sangue
e A come adesso vengo e ti sfascio le corna!
(Diego Abatantuono "Attila Flagello di Dio")

 Ho fatto come hai detto ma non vedo nulla di particolare a parte che ripete il ciclo 2 volte e non so come fermarlo...
Sta cercando di aiutarti a non ripetere l'errore in futuro, usando
appunto gli strumenti di debug a tua disposizione.
Per avvicinarti un po' alla soluzione, metti un breakpoint sulla prima
istruzione della Sub Check1_Click, lancia il programma, clicca sul
checkbox incriminato e da li, seseguendo passo-passo, vedi quali
"salti" esegue il codice: ti sarà subito evidente che cosa sta
succedendo.
Come ulteriore aiutino, fai mente locale su cosa rappresenta il value
di un checkbox....

 di un checkbox....
Non vale!
....ci arriva da se!Lasciagli la soddisfazione!
:')
-- 
----- Italliaaaaa 3227! -----
Era Cecco, il figlio del fornaio; era un orribile butterato napoletano, 
col culo molto basso ed un alito agghiacciante tipo fogna di Calcutta.
(Fantozzi)

    Check1.Visible = True  '� il pulsante di invio mail
Questo controllo non � un pulsante, per cui gli eventi che vengono generati 
a runtime possono differire molto dal comportamento che ti aspetti!!!
Hai provato in questo modo?
Private Sub ElencoFile_Click()
    Command1.Visible = True
    Percorso = "J:\Folitec\DB Da SQL Server\Ricette macine\Segnalazioni\"
    FileDaInviare.Text = Percorso & ElencoFile.List(ElencoFile.ListIndex)
End Sub
Private Sub Command1_Click()
    Command1.Visible = False


 ha scritto:
HINT: Quand'è che un evento di Click di una CheckBox viene generato? :)

HINT: Quand'ï¿œ che un evento di Click di una CheckBox viene generato? :)
Quando viene modificata la proprietï¿œ Value direttamente cliccando sul 
controllo o indirettamente via codice. 

Usavo la CheckBox al posto del solito pulsante perchè mi permetteva un migliore controllo sull' aspetto, per esempio il colore del testo.
Utilizzando un semplice pulsante Command tutto funziona ora a dovere per cui grazie dei consigli e mi scuso con Wodka40° ma io non sono un programmatore, sto imparando passo passo da solo....
Ciao
Marco

 sto imparando passo passo da solo.... Ciao Marco
UAO! ....ma faccio così paura?
Comunque caro omonimo adesso sai qualcosa in più.....e lo sai vedendo 
"cosa succede" passo passo!
Almeno lo spero! Spero che tu ci fossi arrivato prima degli aiuti!
Se lo hai fatto....adesso sai pescare un pesce in più!
:o)
-- 
----- Italliaaaaa 3227! -----
Please, visits website, but please visit Italy. We’re t’best country in 
the world in terms of: Culture, Landscapes, Arts, History, Cities, 
Villages, Beautiful countryside, seaside, mountains. That is Italy. You 
know, perhaps, you dreaming about. But please, visit or country. We 
will welcome you warmly and with a better organization.
(Francesco Rutelli Video a: 
http://www.martek.it/dblog/mostraVideo.asp?p=/public/dblog/Rutelli1.wmv
 
)

 ha scritto:

Passo passo ok, ma "prova e compila" va un po' meno bene.
Consiglio: Comprati un libro decente e studia su quello :)

, 
marcop...@gmail.com
 
says...

Così però hai aggirato il problema, che si risolveva molto banalmente, 
senza capirlo.
Il punto non era nell'aver usato un CheckBox camuffato da pulsante, 
quello può andar bene.... era il *come* lo usavi, ed in particolare una 
singola riga di codice, quella che avevi messo, senza dubbio, per 
evitare che il simil-tasto restasse con l'effetto "premuto".
Facendo il debug passo-passo e con i nostri indizi, avresti capito 
perchè si comportava così, con una semplice IF risolto, e imparato nel 
rattempo come evitare in futuro problemi simili di eventi in loop.