Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

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

vb6 e outlook

Show all headers | View raw

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

Back to it.comp.lang.visual-basic | Previous | Next — 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