invio via mail con yahoo

Hai un problema con Excel?

Nuova discussione

invio via mail con yahoo
di marxitpa data: 12/10/2013 20:06:28
C'è un codice che permette di inviare mail, ad indirizzo in A1 o ad elenco in A, non con outlook ma, ad esempio, con yahoo?
di Vecchio Frac data: 15/10/2013 11:19:14
Non penso che sia fattibile ma dovrei studiarci un po' su.
di marxitpa data: 17/10/2013 08:03:50
trovato codice con spiegazioni.
Purtroppo non posso allegarlo in quanto fa riferimento a sito schema/microsoft ... e me lo considera spam.

Funziona sia per yahoo che per gmail.
Peccato
di patel (utente non iscritto) data: 17/10/2013 10:09:19
non puoi postare soltanto il codice ? cancellando od alterando eventuali link ?
di patel (utente non iscritto) data: 17/10/2013 10:32:53
non importa, si trova facilmente con google, inoltre hai ragione, il codice è pieno di link
di Vecchio Frac data: 17/10/2013 11:50:38
Grazie a marxitpa che mi ha inviato il link ho potuto rendermi conto che si utilizza la libreria CDO... come non averci pensato prima? LOL
Certo con tutti i limiti di tale libreria... adesso vado a cercare un mio vecchio codice che utilizzava CDO (sarà ancora compatibile con i nuovi Winzozz? boh... vedremo).

di Vecchio Frac data: 17/10/2013 12:06:04
Ecco l'esempio.
Da testare e ovviamente riempire con dati reali.
Va prereferenziata la libreria CDO (cdosys.dll). Se non l'avete scaricatela con Google.
Nota: da testare l'utilizzo degli allegati... vedendo il codice qualcosa così non mi quadra ^_^
Se ho tempo faccio qualche prova anche per correggere eventuali errori.

Option Explicit

Private Sub SendEmailWithCDO()
Dim bResponse As Boolean, cAttachs as Collection

    set cAttachs = new collection
    cAttachs.Add "c:	estallegato1.pdf"
        
    bResponse = BuildCDOEmail("destinatario@google.com;destinatario2@yahoo.it", "Nome mittente", "email_mittente@dominio.it", "mail.server.mittente.it", "Oggetto del messaggio", "Testo messaggio: hello world", cAttachs)

    If bResponse Then MsgBox "All ok. Emailes sent succesfully!" Else MsgBox "Errors occured."
End Sub


Private Function BuildCDOEmail(sTo As String, sFrom As String, sSender As String, SMTP_SERVER As String, sSubject As String, sBody As String, cAttachs As Collection) As Boolean
Dim i As Integer
Dim Cdo2Configuration As CDO.Configuration, Cdo2Message As CDO.Message, Cdo2Fields, v
    
On Error GoTo Err_SendEmail
    
    BuildCDOEmail = False
    ' Create a new Configuration object.
    Set Cdo2Configuration = New CDO.Configuration
    ' Get a reference to the Configuration object's Fields collection
    Set Cdo2Fields = Cdo2Configuration.Fields
    ' Set the Configuration object's properties through its Fields collection.
    With Cdo2Fields
        .Item(cdoSMTPServer) = SMTP_SERVER
        .Item(cdoSendUsingMethod) = cdoSendUsingPort
        .Update ' Important
    End With
    
    ' Create a new message.
    Set Cdo2Message = New CDO.Message
    
    ' Set the message's configuration.
    Set Cdo2Message.Configuration = Cdo2Configuration
    
    ' Set the message content.
    Cdo2Message.Subject = sSubject
    Cdo2Message.TextBody = sBody
    
    ' Address the message.
    Cdo2Message.Sender = sSender
    Cdo2Message.From = sFrom
    Cdo2Message.To = sTo
    
    'AddAttachments Cdo2Message
    For Each v In cAttachs
        Cdo2Message.AddAttachment v
    Next
    
    ' Send the message.
    Cdo2Message.Send
    
    Set Cdo2Message = Nothing
    Set Cdo2Configuration = Nothing
    Set Cdo2Fields = Nothing
    BuildCDOEmail = True
    Exit Function
    
Err_SendEmail:
     BuildCDOEmail = False
End Function

di marxitpa data: 17/10/2013 12:26:06
Vecchio Frac ... sei grande...
grazie, approfondiremo.

di patel (utente non iscritto) data: 17/10/2013 12:28:49
questo codice funziona per gmail

Sub sendgmail()
Set cdomsg = CreateObject("CDO.message")
With cdomsg.Configuration.Fields
  .Item("ACCATITIPI2puntiBARRABARRAschemas.microsoft.com/cdo/configuration/sendusing") = 2 'NTLM method
  .Item("ACCATITIPI2puntiBARRABARRAschemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
  .Item("ACCATITIPI2puntiBARRABARRAschemas.microsoft.com/cdo/configuration/smptserverport") = 587
  .Item("ACCATITIPI2puntiBARRABARRAschemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
  .Item("ACCATITIPI2puntiBARRABARRAschemas.microsoft.com/cdo/configuration/smtpusessl") = True
  .Item("ACCATITIPI2puntiBARRABARRAschemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
  .Item("ACCATITIPI2puntiBARRABARRAschemas.microsoft.com/cdo/configuration/sendusername") = "userCHIOCCIOLAgmail.com"
  .Item("ACCATITIPI2puntiBARRABARRAschemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxx"
  .Update
End With
' build email parts
strbody = "Hi there" & vbNewLine & vbNewLine & _
    "This is line 1" & vbNewLine & _
    "This is line 2" & vbNewLine & _
    "This is line 3" & vbNewLine & _
    "This is line 4"
With cdomsg
  .To = "aaaaCHIOCCIOLAbbb.it"
  .From = "userCHIOCCIOLAgmail.com"
  .Subject = "terza prova"
  .TextBody = strbody
  .CC = ""
  .BCC = ""
.Send
End With
    Set cdomsg = Nothing
End Sub

di marxitpa data: 17/10/2013 12:42:10
Con la speranza di non venire 'censurato' per non rispetto del regolamento e ritenendo utile un approfondimento su invio email tramite yahoo o gmail, indico parte del link della pagina dove ho trovato suggerimenti:
(viene omesso il www iniziale)
.learnexcelmacro.com/2011/12/how-to-send-an-email-using-excel-macro-from-gmail-or-yahoo/

Fate i vostri approfondimenti e, in particolare, lavoriamo su invio di email con indirizzi in colonna A, oggetto in B, testo in C, e allegati individuati con indirizzo completo in D.

buon lavoro
di Vecchio Frac data: 17/10/2013 14:40:27
cit. patel: "ACCATITIPI2puntiBARRABARRA" e "userCHIOCCIOLAgmail.com"
---> ma LOL ^_^

cit. marxitpa: "Con la speranza di non venire 'censurato' per non rispetto del regolamento"
---> Vai tranquillo ^_^

di marxitpa data: 17/10/2013 16:51:28
funziona anche per yahoo.

e adesso procediamo con la parte del codice per allegare file.

    Sub SendEmailUsingYahoo()  
      
    Dim NewMail As CDO.Message  
      
    Set NewMail = New CDO.Message  
      
    'Enable SSL Authentication  
    NewMail.Configuration.Fields.Item _  
    ("ACCATITIPI2puntiBARRABARRAschemas.microsoft.com/cdo/configuration/smtpusessl") = True  
      
    'Make SMTP authentication Enabled=true (1)  
      
    NewMail.Configuration.Fields.Item _  
    ("ACCATITIPI2puntiBARRABARRAschemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1  
      
    'Set the SMTP server and port Details  
    'To get these details you can get on Settings Page of your Yahoo Account  
      
    NewMail.Configuration.Fields.Item _  
    ("ACCATITIPI2puntiBARRABARRAschemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.yahoo.com"  
      
    NewMail.Configuration.Fields.Item _  
    ("ACCATITIPI2puntiBARRABARRAschemas.microsoft.com/cdo/configuration/smtpserverport") = 465  
      
    NewMail.Configuration.Fields.Item _  
    ("ACCATITIPI2puntiBARRABARRAschemas.microsoft.com/cdo/configuration/sendusing") = 2  
      
    'Set your credentials of your Gmail Account  
      
    NewMail.Configuration.Fields.Item _  
    ("ACCATITIPI2puntiBARRABARRAschemas.microsoft.com/cdo/configuration/sendusername") = "tuamail@yahoo.it"  
      
    NewMail.Configuration.Fields.Item _  
    ("ACCATITIPI2puntiBARRABARRAschemas.microsoft.com/cdo/configuration/sendpassword") = "********"  
      
    'Update the configuration fields  
    NewMail.Configuration.Fields.Update  
      
    'Set All Email Properties  
      
    With NewMail  
      .Subject = "Test Mail da yahoo"  
      .From = "tuamailCHIOCCIOLAyahoo.it"  
      .To = "mail1CHIOCCIOLAyahoo.it;mail2CHIOCCIOLAyahoo.it"  
      .CC = "mail3CHIOCCIOLAvirgilio.it"  
      .BCC = ""  
      .textbody = "prova invio email da yahoo"  
    End With  
      
    NewMail.Send  
    MsgBox ("Mail has been Sent")  
      
    'Set the NewMail Variable to Nothing  
    Set NewMail = Nothing  
      
    End Sub

di marxitpa (utente non iscritto) data: 17/10/2013 17:13:35
funziona anche l'invio di allegato.
basta aggiornare il codice.

    With NewMail  
 .Subject = "Test Mail da yahoo"  
      .From = "tuamailCHIOCCIOLAyahoo.it"  
      .To = "mail1CHIOCCIOLAyahoo.it;mail2CHIOCCIOLAyahoo.it"  
      .CC = "mail3CHIOCCIOLAvirgilio.it"  
      .BCC = ""  
      .textbody = "prova invio email da yahoo" 
      
    ' For multiple Attachment you can add below lines as many times  
      
      .AddAttachment "f:siti.xls"  
      .AddAttachment "C:duplicati1.xls"  
    End With

di marxitpa data: 17/10/2013 18:14:44
ed ora cerchiamo di perfezionare il tutto.
In A1 inseriamo di volta in volta l'indirizzo .From;
in B1 concateniamo tutti gli indirizzi .To presenti da B2 ... in B100;
in C1 concateniamo tutti gli indirizzi .To presenti da C2 ... in C100;
in D1 concateniamo tutti gli indirizzi .CC presenti da D2 ... in D100;
in E1 concateniamo tutti gli indirizzi .BCC presenti da E2 ... in E100;
in F1 inseriamo .Subject
in G1 inseriamo .TextBody;
In H1, H2, ... inseriamo tutti gli indirizzi dei files .AddAttachment

E' chiaro che il tempo di invio dipende dalla pesantezza dei files allegati.
di patel (utente non iscritto) data: 17/10/2013 21:00:16
confermo, anche con gli allegati

di marxitpa data: 20/10/2013 04:11:10
codice finale.
attenzione --> togliere spazio in "ht tp://

Sub SendEmailUsingYahoo()
Dim Da, Text, Ogg, achiTo, achiCC, achiBCC, Att1, Att2, Att3, codice As String
Da = Range("A2")  ' indirizzo accesso yahoo
codice = Range("Q2") 'password accesso yahoo
Text = Range("I2") ' Testo - Ricorda che nella cella di inserimento (I2) per andare a capo basta premere Alt Invio
Ogg = Range("H2") ' breve descrizione dell'oggetto del messaggio
achiTo = Range("B2") ' indirizzi di posta elettronica dei destinatari principali.
achiCC = Range("D2") ' indirizzi di posta elettronica dei destinatari in copia conoscenza
achiBCC = Range("F2") ' indirizzi di posta elettronica dei destinatari in copia conoscenza nascosta, ovvero destinatari che riceveranno il messaggio ma il cui indirizzo non apparirà tra i destinatari.
Att1 = Range("J2") ' percorso primo file allegato
Att2 = Range("K2") ' percorso secondo file allegato
Att3 = Range("L2") ' percorso terzo file allegato
    Dim NewMail As CDO.Message
    Set NewMail = New CDO.Message
    'Enable SSL Authentication
    NewMail.Configuration.Fields.Item _
    ("ht tp://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    'Make SMTP authentication Enabled=true (1)
    NewMail.Configuration.Fields.Item _
    ("ht tp://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    'Set the SMTP server and port Details
    'To get these details you can get on Settings Page of your Yahoo Account
    NewMail.Configuration.Fields.Item _
    ("ht tp://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.yahoo.com"
    NewMail.Configuration.Fields.Item _
    ("ht tp://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
    NewMail.Configuration.Fields.Item _
    ("ht tp://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    'Set your credentials of your Gmail Account
    NewMail.Configuration.Fields.Item _
    ("ht tp://schemas.microsoft.com/cdo/configuration/sendusername") = Da ' user accesso yahoo che viene ritrovato in A2
    NewMail.Configuration.Fields.Item _
    ("ht tp://schemas.microsoft.com/cdo/configuration/sendpassword") = codice ' password accesso yahoo che viene inserito in Q2
    'Update the configuration fields
    NewMail.Configuration.Fields.Update
    'Set All Email Properties

With NewMail
      .Subject = Ogg
      .From = Da
      .To = achiTo

      .CC = achiCC
      .BCC = achiBCC
      .TextBody = Text

'      .HTMLBody = "Write your complete HTML Page"
    ' For multiple Attachment you can add below lines as many times
     .AddAttachment Att1
     .AddAttachment Att2
     .AddAttachment Att3

    End With
    NewMail.Send
    MsgBox ("la Mail è stata inviata.")
    'Set the NewMail Variable to Nothing
    Set NewMail = Nothing
    End Sub

di marxitpa data: 20/10/2013 08:42:17
S.O.S.:
se non ci sono allegati, mi vengono comunque allegati 3 files attachment. Come evitarlo?

ed ancora, come fare per 'nascondere' il codice password in Q2 in excel o, meglio ancore, all'interno del codice?
NewMail.Configuration.Fields.Item _ ("ht tp://schemas.microsoft.com/cdo/configuration/sendpassword") = codice ' password accesso yahoo che viene inserito in Q2

Vuoi Approfondire?