Newsgroup: it.comp.appl.access
Titolo: in riferimento al sito comune inviare un email con winsock

qualcuno di voi ha provato oppure sa darmi una dritta su come gestire
l'invio a piu indiirzzi email nel campo CC
l'esempio gestisce l'invio con campo A campo CC e campo BCC ma non in numero
maggire di 1 per campo.
qualcuno mi sa aiutare? grazie.

 ha scritto nel
messaggio
news:c491pp$dhg$1...@lacerta.tiscalinet.it...

Scorri l'elenco e piazzaci un ";"
campo1 = campo1 & ";" & me.campo1
MAssimiliano


già  fatto!!
        rs.Edit
        rs.MoveFirst
        Dim i
        For i = 1 To rs.RecordCount
            If i = 1 Then
                A = Estrapola2(rs!email)
            Else
                A = A & ";" & Estrapola2(rs!email)
            End If
        rs.MoveNext
        Next i
ma non lo gestisce proprio. se ne metto uno solo parte e arriva il messaggio
se ce ne sono piu di uno con ; di mezzo , parte ma non arriva.
la parte in cui gestisce i destinatari e questa
    '***Settings
    'Tipo di protocollo
    frm.Wsk.Protocol = sckTCPProtocol
    '########## SMTP del server remoto
    frm.Wsk.RemoteHost = DLookup("[SMTP]", "tblConfig")
    If frm.Connect Then Set frm = Nothing: GoTo CHIUDI  'apre la connessione
    '########## Soggetto
    frm.Subject = Nz(Me!txtSubject, "")
    '########## Nome e cognome del mittente
    frm.senderName = Nz(Me!txtSenderName, "")
    '########## Indirizzo Mail del mittente
    frm.SenderEmail = Trim$(Nz(Me!txtSenderMail, ""))
    '########## Indirizzo Mail del destinatario
    frm.RecipientEmail = Trim$(Me!txtTo)
    '########## Indirizzo Cc
    frm.CC = Trim$(Nz(Me!txtCc, ""))
    '########## Indirizzo Bcc
    frm.bcc = Trim$(Nz(Me!txtBcc, ""))
    '########## Indirizzo ReplyTo
    frm.ReplyTo = Trim$(Nz(Me!txtReplyTo, ""))
    '########## Messaggio
    frm.txtBody = Nz(Me!txtMessaggio, "")
    '########## NOME FILE privo del Path
qualcuno sa delucidarmi? grazie.

 ha scritto nel
messaggio
news:c492fr$e46$1...@lacerta.tiscalinet.it...

Hai provato a lasciare spazio tra un nome e
l'altro. Ad occhio dovrebbe venire un accrocchio
lunghissimo non valido
MAssimiliano

 MAssimiliano
no metto dei punti e virgola non degli spazi fra un indirizzo e l'altro
eppure non và, qualcuno a già affrontato il problema?

sul sito comune ho visto il tuo esempio sezione general mail.zip
io avrei l'esigenza di spedire una email ad un indirizzo nel campo A
e a piu indirizzi nel campo CC esempio CC = 
pi...@libero.it
; 
pl...@tin.it
mentre quell'esempio pare esegua un invio per ogni indirizzo
io vorrei fare come da outlook express ovvero mandarli in un unica volta
tutti sarà poi il server di posta di tiscali a smistarli dove dovuto.
Qualcuno a qualche idea o a già affrontato il problema? Grazie.

 ha scritto nel messaggio
news:c492fr$e46$1...@lacerta.tiscalinet.it...

Così come l'hai scritto il ciclo intendo ti viene restituita una
stringa errata, per la presenza del ";" all'inizio.
Comunque tu la metta devi troncare il ";" in eccesso.
Se scrivi così:
     A = A & ";" & Estrapola2(rs!email)
    ";
pi...@libero.it
;
pl...@libero.it
"
di conseguenza dovrai fare a fine ciclo:
A=Mid$(A,2,Len(A))
Se invece scrivi così:
    A = A & ";" & Estrapola2(rs!email)
    "
pi...@libero.it
;
pl...@libero.it
;"
    A=MID$(A,1,Len(A)-1)
Ciao.
@Alex.