Visualizzazione dei risultati da 1 a 6 su 6
  1. #1
    Utente di HTML.it
    Registrato dal
    Jul 2015
    Messaggi
    95

    Invio e-mail con allegati vb6

    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.

  2. #2
    Utente di HTML.it L'avatar di oregon
    Registrato dal
    Jul 2005
    residenza
    Roma
    Messaggi
    36,480
    Cerca la DLL vbSendMail su internet
    No MP tecnici (non rispondo nemmeno!), usa il forum.

  3. #3
    Utente di HTML.it
    Registrato dal
    Jul 2015
    Messaggi
    95
    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?

  4. #4
    Utente di HTML.it L'avatar di oregon
    Registrato dal
    Jul 2005
    residenza
    Roma
    Messaggi
    36,480
    Ovviamente perché? Meglio dire di quale errore si tratta ...
    No MP tecnici (non rispondo nemmeno!), usa il forum.

  5. #5
    Utente di HTML.it
    Registrato dal
    Jul 2015
    Messaggi
    95
    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...

  6. #6
    Utente di HTML.it L'avatar di oregon
    Registrato dal
    Jul 2005
    residenza
    Roma
    Messaggi
    36,480
    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.

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.