vb6 e winsock errore!

[mardok30]

Un po di tempo fa ho fatto una ricerca e tra i vari sorgenti che ho scaricato non ne funzionava nessuno. Poi ho fatto una ricerca qui nel forum ed ho trovato il metodo con winsock e sinceramente, visto che sono all'inizio con VB6, non so bene quale sia il metodo migliore per inviare email...basta che mi funziona(detto in altre parole lo vorrei già bello e pronto :tongue: )Se mi puoi consigliare qlc cosa per riuscire nell'intento di inviare questa benedetta mail. Possibilmente senza l'utilizzo di Outlook.
GRAZIE

[fanboy]

Allora marco io ho sempre usata il controllo Microsoft Mapi Control 6.0 (lo trovi sotto componenti). Una volta aggiunto il componente ti compaiono due simboli sulla tool bar ( MAPISession & MAPIMessages) aggiungili entrambi sulla form!! Poi scrivi sto codice

With MAPISession1
        .Username = "PIPPO"
        .Password = "CICCIO"
        .DownLoadMail = False
        .SignOn
    End With
    With MAPIMessages1
        .SessionID = MAPISession1.SessionID
        
        .Compose
        .RecipAddress = GWTBox1.Value
        .MsgSubject = "MA CHE BELLA GIORNATA OGGI :-)"
        .MsgNoteText = "DAI OGGI é VENERDI'"
        
        .AttachmentIndex = MAPIMessages1.AttachmentCount
        .AttachmentName = "PORNAZZO.DVX"
        .AttachmentPathName = "C:\PORNAZZI\PORNAZZO.DVX"
        .AttachmentPosition = MAPIMessages1.AttachmentIndex
        .AttachmentType = 0
        .AttachmentIndex = MAPIMessages1.AttachmentCount
        .AttachmentName = "WebClinti.txt"
        .AttachmentPathName = "C:\tmp\WebClienti.txt"
        .AttachmentPosition = MAPIMessages1.AttachmentIndex
        .AttachmentType = 0
        .AttachmentIndex = MAPIMessages1.AttachmentCount
        .AttachmentName = "WebLuogoDest.txt"
        .AttachmentPathName = "C:\tmp\WebLuogoDest.txt"
        .AttachmentPosition = MAPIMessages1.AttachmentIndex
        .AttachmentType = 0         
        .Send False ' 
        
        MAPISession1.SignOff
    End With
End Sub

LA parte in rosso ti permetti di allegare un numero N° Di File

FAmmi sapere se ti funzia ciao :gren:

[mardok30]

un codice come questo l'ho già usato... ma fa sempre utilizzo di Outlook e nel caso in cui non hai l'outlook impostato(come nel mio caso) ti da errore, in particolare mi dice profilo non valido al comando .SignOn
poi esci il messaggio "un programma sta tentando di inviare automaticamente la posta, consentire l'operazione?" e se metto Si mi da errore "unspecified errore has occurred" al comando: .Send False Risultato... non invia l'email.

Ps. ma non si dovrebbe inserire l'indirizzo di un server di posta in uscita come minimo? forse questo codice non lo prevede perché utilizza la configurazione di Outlook?
CIAO

[fanboy]

Ps. ma non si dovrebbe inserire l'indirizzo di un server di posta in uscita come minimo? forse questo codice non lo prevede perché utilizza la configurazione di Outlook?

.RecipAddress = "INDIRIZZOCHEVUOITU :-)"

:quote:

Ehhh se non hai OE mi sa proprio che non funge

ASPETTA CHE CHIEDO AS UN MIO COLLEGA, se non sbaglio lui aveva fatto un programmino che non passava per OE