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.
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.
Cerca la DLL vbSendMail su internet
No MP tecnici (non rispondo nemmeno!), usa il forum.
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?
Ovviamente perché? Meglio dire di quale errore si tratta ...
No MP tecnici (non rispondo nemmeno!), usa il forum.
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...
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?
Ultima modifica di oregon; 02-11-2015 a 08:22
No MP tecnici (non rispondo nemmeno!), usa il forum.