Groups > it.comp.lang.visual-basic > #19907

Re: vb6 e outlook

Path	csiph.com!aioe.org!VYr/u1gMygMZk6k+mfwTkQ.user.gioia.aioe.org.POSTED!not-for-mail
From	RobertoA <amorosik@tiscalinet.it>
Newsgroups	it.comp.lang.visual-basic
Subject	Re: vb6 e outlook
Date	Sun, 11 Jul 2021 19:25:53 +0200
Organization	Aioe.org NNTP Server
Lines	60
Message-ID	<scf9j0$4m1$1@gioia.aioe.org> (permalink)
References	<72251dc4-141e-4310-8e54-183dc6c2dc17n@googlegroups.com>
NNTP-Posting-Host	VYr/u1gMygMZk6k+mfwTkQ.user.gioia.aioe.org
Mime-Version	1.0
Content-Type	text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding	8bit
X-Complaints-To	abuse@aioe.org
User-Agent	Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:78.0) Gecko/20100101 Thunderbird/78.11.0
X-Notice	Filtered by postfilter v. 0.9.2
Content-Language	it
Xref	csiph.com it.comp.lang.visual-basic:19907

Show key headers only | View raw

Il 11/07/2021 14:10, gaetano cala ha scritto:
> buongiorno,è da molto che non programmo in vb6,perdonatemi per la mia richiesta:in una form ho scritto un codice che tramite la pressione di un commandbutton mi esegue una ricerca ed invia la stessa email a tutti i destinatari. Il codice va bene : fa la ricerca,apre outlook,mi mostra la email ed i destinatari e mi da la possibilita di inviare la email,solo che questa viene spedita solo se io riapro outlook e mi collego con il mio account. come posso evitare questo ultimo passaggio ? questo è il codice :
> Private Sub Command1_Click()
> Dim OutApp As Object
> Dim OutMail As Object
> 
> Dim destinatari As String
> 
> 
> Dim cn As ADODB.Connection
> Dim rs As ADODB.Recordset
> Dim database As String
> 
> database = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
> database = database & App.Path & "\" & "ospiti.mdb"
> 
> Set cn = New ADODB.Connection
> Set rs = New ADODB.Recordset
> 
> cn.Open database
> 
> rs.Open "Select EMAIL from ANAGRAFICA where MID (DATANASCITATESTO,1,5) = '" & Text1.Text & "'", cn, 3, 3#
> 
> 
> rs.MoveFirst
> Do Until rs.EOF
> destinatari = (destinatari & ";") & rs.Fields("EMAIL")
> rs.MoveNext
> 
> 
> Loop
> Set OutApp = CreateObject("Outlook.Application")
> Set OutMail = OutApp.CreateItem(0)
> With OutMail
> .To = ""
> .CC = destinatari
> 
> .Display
> End With
> 
> Set OutMail = Nothing
> Set OutApp = Nothing
> 
> 
> End Sub
> 

L'invio email e' una funzionalita' che dipende fortemente da come e' 
preparato il pc sul quale si sta lavorando
Ti consiglio di slegarti dal client attualmente installato
Magari su un pc hai Outlook, su altro hai Thunderbird e cosi via, e 
quindi se realizzi tutto 'cablato' su Outlook, poi capita che se non ti 
funziona piu' l'invio email
Per sganciarti dal client email installato, e garantirti la perfetta 
funzionalita' su tutte le installazioni che avrai, puoi usare Swithmail 
oppure Blat
Sono dei programmi che avvii a riga di comando e puoi inviare messaggi a 
chi vuoi, anche loggando eventuali errori che potrai poi leggere
Destinatari multipli, allegati, log errori, testo messaggio anche in 
html, fanno di tutto

Back to it.comp.lang.visual-basic | Previous | Next — Previous in thread | Next in thread | Find similar

Thread

vb6 e outlook gaetano cala <calabresega@gmail.com> - 2021-07-11 05:10 -0700
  Re: vb6 e outlook "Freccia (VegetaSSj)" <NIENTESPAMfreccia_vegetassj@hotmail.invalid> - 2021-07-11 15:33 +0200
  Re: vb6 e outlook RobertoA <amorosik@tiscalinet.it> - 2021-07-11 19:25 +0200
    Re: vb6 e outlook gaetano cala <calabresega@gmail.com> - 2021-07-12 00:24 -0700
      Re: vb6 e outlook RobertoA <amorosik@tiscalinet.it> - 2021-07-12 11:39 +0200
        Re: vb6 e outlook gaetano cala <calabresega@gmail.com> - 2021-07-13 00:20 -0700

csiph-web