Newsgroup: it.comp.lang.visual-basic
Titolo: Inviare file via mail da VB6

Ciao a tutti,
mi vorrei innanzitutto scusare se chiedo una cosa stra-richiesta. Mi
chiedevo se potevate spiegarmi o indirizzarmi a un programma già fatto(e che
funzioni perfettamente) che invii files via internet per posta elettronica
in automatico oppure che alleghi soltanto un file specifico a una mail del
programma predefinito di posta.
Spero di non chiedere troppo...
1000 Grazie a tutti!!!

 programma predefinito di posta.
Puoi cercare sul sito comune la parola MAIL.
Queste usano MAPI<Session e Message> e si appoggiano sul gestore di posta
sottostante
Vedi EMAIL_COMPONI e, in particolare, l'argomento nome_allegato.
Function EMAIL_CONNETTI(controllo_mapi_sessione As Object,
controllo_mapi_messaggi As Object)
'       Restituisce 0   se tutto OK
'                   1   se la connessione è gia' attiva
    EMAIL_CONNETTI = 0
'       Se la connessione/sessione e' gia' avvenuta restituisce segnale
    If controllo_mapi_sessione.NewSession Then
        EMAIL_CONNETTI = 1
    Else
'           Imposta la proprietà DownLoadMail su False per evitare lo
scaricamento immediato.
        controllo_mapi_sessione.DownLoadMail = 0
'           Utilizza l'interfaccia utente di accesso del sistema di
messaggistica sottostante.
        controllo_mapi_sessione.LogonUI = 1
        controllo_mapi_sessione.SignOn     'Tenta la connessione
'           Imposta la proprietà NewSession
        controllo_mapi_sessione.NewSession = 1
        controllo_mapi_messaggi.SessionID =
controllo_mapi_sessione.SessionID
    End If
End Function
Sub EMAIL_COMPONI(controllo_mapi_sessione As Object, controllo_mapi_messaggi
As Object, Optional email_destinatario = "", Optional oggetto = "", Optional
messaggio = "", Optional parametri = 0, Optional percorso_allegato = "",
Optional nome_allegato = "")
'   parametri   2^0 Spedisci senza intervento dell'operatore
'                   E' necessario che tutti i dati siano passati:
'                       email_destinatario  (obbligatorio <>"")
'                       oggetto             (anche "")
'                       messaggio           (anche "")
'               2^1 Non esegue connessione
'               2^2 Non esegue disconnessione
    If (parametri And 2 ^ 1) = 0 Then
        Call EMAIL_CONNETTI(controllo_mapi_sessione,
controllo_mapi_messaggi)
    End If
    If (parametri And 2 ^ 0) Then
        If email_destinatario = "" Then parametri = parametri - (parametri
And 2 ^ 0)
    End If
    controllo_mapi_messaggi.Compose
    controllo_mapi_messaggi.RecipAddress = email_destinatario
    controllo_mapi_messaggi.MsgSubject = oggetto
    controllo_mapi_messaggi.MsgNoteText = messaggio
    If percorso_allegato <> "" Then
'           Indicato un allegato
        controllo_mapi_messaggi.AttachmentPathName = percorso_allegato
        If nome_allegato <> "" Then
            controllo_mapi_messaggi.AttachmentName = nome_allegato
        End If
    End If
    controllo_mapi_messaggi.Send IIf(parametri And 2 ^ 0, 0, 1)
    If (parametri And 2 ^ 2) = 0 Then
        Call EMAIL_DISCONNETTI(controllo_mapi_sessione)
    End If
End Sub
Sub EMAIL_DISCONNETTI(controllo_mapi_sessione As Object)
    On Error Resume Next    'Per sessione gia' disconnessa
    controllo_mapi_sessione.SignOff
    controllo_mapi_sessione.NewSession = 0
    On Error GoTo 0
End Sub