Newsgroup: it.comp.lang.visual-basic
Titolo: OUTLOOK vs VB6

Ho realizzato un programmino che da un file excel invia per ogni riga
una e-mail, prendendo nel folgio elettronico i dati, il problema e con
outlook 2002 su WinXP, per ogni e-mail che il prg crea ed invia, mi
compare un alert che mi dice che un prg sta tentando di inviare una
e-mail automaticamente.
Avete suggerimenti per come gestirlo anche da VB? in considerazione che
il file excel potrebbe avere anche + di 600 righe?
Credo possa essere però anche un'opzione di outlook, ma non trovo
niente nel menù opzioni.
Ciao
Federico

"Manodedios"
outlook 2002 su WinXP, per ogni e-mail che il prg crea ed invia, mi
compare un alert
a memoria e' cosa non risolvibile prova :
http://www.google.it/search?hl=it&q=outlook%2Bcdo&meta=lr%3Dlang_it
--
Fosco

 una e-mail...
Ti hanno già risposto con una certa ricchezza di particolari... A che
scopo aprire un altro thread?
-- 
Salutoni
Sergio
Per rispondere... togli il group dall'indirizzo
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Ti hanno già risposto con una certa ricchezza di particolari...
Usti, che cantonata... non eri tu :-)
Ma il problema è lo stesso, ed il thread è comunque di ieri... I post
degli altri non li leggi?


 
In ogni caso(vedi thread di ieri), anche a te consiglio vbSendMail.dll
-- 
Emanuele Torrenti

C'ho provato, sostanzialmente ho un problema che usando Microsoft
Exchange non posso indicare un server SMTP, o perlomeno non sono in
grado e poi non so come recuperare vbSendMail.dll DLL ed unirla al
registro almeno credo che sia quello che devo fare.

Manodedios ha scritto:

vbsendmail la cerchi con google(non ci avevi pensato, eh?). la troverai 
con tanto di documentazione su 
freevbcode.com
.
Se guardi un mio post precedente trovi il link.
Visto che hai il manuale da 60 E., perchè non lo leggi? scoprirai che le 
dll si registrano lanciando da command:
regsvr32 <nomeDllOppureOCXoQuelloCheVuoiTuPurchèSiaActiveXoAffine>
-- 
Emanuele Torrenti

GRazie mille anche se in reltà c'ho provato ma non trovo la DLL che
dici, poi rimane il problema del server SMTP, quindi non mi servirebbe
a nulla.

Trovato Tutto, fatta registrazione eccetera... solito problema.
Non so indicare il server SMTp essendo sulla rete aziendale con
Microsoft Exchange. Rimango con il mio codice funzionanate che pero mi
chiede conferma ad ogni invio e tralaltro non funzione la proprietà
From, che mi da errore di proprietà o metodo non supportata
dall'oggetto, adesso faccio un giro nell'help prima che qualcuno mi
inviti a farlo nel frattempo vi invio il codice, se vi viene in mente
qualcosa per Exchange fatemi sapere....
 For i = 2 To r_mail
   With Sheets(Foglio)
     'Ricerca dei file di Fatture e Allegati
     MyFile = Dir(Fatture_Text.Text & .Cells(i, 2) & "*.pdf")
     MyAllegato = Dir(Allegati_Text.Text & .Cells(i, 1) & "*.xls")
       'Inizio Procedura invio e-mail
       Set NewMail = AppOut.CreateItem(olMailItem)
       NewMail.From = Mittente_Text.Text
       NewMail.To = .Cells(i, 3).Text & ";" & .Cells(i, 4).Text & ";" &
.Cells(i, 5).Text _
                   & ";" & .Cells(i, 6).Text & ";" & .Cells(i, 7).Text
& ";" & .Cells(i, 8).Text _
                   & ";" & .Cells(i, 9).Text & ";" & .Cells(i, 10).Text
& ";"
       'NewMail.CC = "INDIRIZZO"
       'NewMail.BCC = "INDIRIZZO"
       NewMail.Subject = .Cells(i, 1).Text & " Ft. " & .Cells(i, 2) & "
" _
                       & .Cells(i, 11) & " Roaming Invoice " &
Periodo_Text.Text
       NewMail.Body = Body_Text.Text + Chr$(10) + Chr$(10) +
Firma_Text.Text
       NewMail.Attachments.Add Fatture_Text.Text & MyFile
'Fatture_Text.Text & .Cells(i, 2) & ".pdf"
       NewMail.Attachments.Add Allegati_Text.Text & MyAllegato
'Allegati_Text.Text & .Cells(i, 1) & ".xls"
       NewMail.Send
 
   End With