Invio e-mail con allegati vb6

[LuigiDH]

Buonasera a tutti,
mi servirebbe un modo aggiornato che funzioni anche su sistemi operativi windows 7 e 8, per inviare e-mail con allegati attraverso un progetto VB6.

Qualcuno mi saprebbe indicare qualche esempio.

Grazie mille.

[oregon]

Cerca la DLL vbSendMail su internet

[LuigiDH]

Grazie per il consiglio, avevo già trovato qualcosa del genere ma non ha funzionato:
Di questo codice cos'è che non va?


Private Sub ss()
On Error Resume Next
Dim Subject, Body, SenderEmail, RecipientEmail, SMTPServer, SMTPusername, SMTPpassword
SenderEmail = "maildestinatario@libero.it"
SMTPServer = "smtp.gmail.com"
SMTPusername = "miamail@gmail.com"
SMTPpassword = "********"
Subject = "Hello"
Body = "This is a test. Please ignore."
RecipientEmail = "miamail@gmail.com"

sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(sch & "smtpauthenticate") = 1
.Item(sch & "smtpusessl") = True
.Item(sch & "smtpserver") = SMTPServer
.Item(sch & "sendusername") = SMTPusername
.Item(sch & "sendpassword") = SMTPpassword
.Item(sch & "smtpserverport") = 465
.Item(sch & "sendusing") = 2
.Item(sch & "connectiontimeout") = 100
.Update
End With

Const cdoSendUsingPickup = "c:\inetpub\mailroot\pickup"
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
Set .Configuration = cdoConfig
cdoMessage.From = SenderEmail
cdoMessage.To = RecipientEmail
cdoMessage.Subject = Subject
cdoMessage.TextBody = Body
cdoMessage.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
If Err.Number <> 0 Then
MsgBox "errore"
End If
End Sub


Va ovviamente in errore...
C'è qualcosa da sistemare?

[oregon]

Ovviamente perché? Meglio dire di quale errore si tratta ...

[LuigiDH]

Non saprei, perdonami ma non capisco! Mi visualizza il msgbox...questo è l'errore! C'è una gestione di errori è ovvio sia questo.
Da cosa sia dovuto...
Posso aggiungere che sulla mia e-mail è arrivata una segnalazione:
TENTATIVO DI ACCESSO BLOCCATO
Qualcuno ha appena provato ad accedere al tuo account da un'app che non rispetta i recenti standard di sicurezza....ecc...

[oregon]

Beh, togli la gestione dell'errore e vedi dove sta e qual è

Sei sicuro di aver individuato bene il destinatario? Deve essere il RecipientEmail ... e la password per accedere all'account è corretta?