Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

macro invio mail multiple senza outlook

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

macro invio mail multiple senza outlook

Postdi r.marco75 » 31/08/14 16:09

Salve a tutti, ho il seguente problema. Queste due macro inizialmente funzionavano con l'ausilio di outlook; in seguito non potendo più utilizzarlo le ho modificate per farle funzionare senza. L'invio delle mail ora continua a farlo regolarmente, però da quando ho apportato la modifica non mi invia più gli allegati. Sinceramente non riesco a capirne la motivazione, e spero che qualcuno più esperto di me possa aiutarmi. Gli indirizzi mail li prende dalla colonna A mentre gli allegati dalla colonna B. Grazie.



Codice: Seleziona tutto
Sub Inviamail(mail As String, file As String, ccmail As String, i As Integer)
   
    Dim iConf As Object
    Dim Flds As Variant
    Dim OutMail As Object
    Dim bodymail As String
    Dim c As Integer
   
 
    Set OutMail = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")
    iConf.Load -1    ' CDO Source Defaults
    Set Flds = iConf.Fields
   
     With Flds

        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxxxxxxx@gmail.com"    ' indirizzo accesso
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxxx"   'password accesso
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        .Update
    End With
         
 
        On Error Resume Next
        With OutMail
             Set .Configuration = iConf
            .From = "xxxxxxxx@gmail.com"
            .To = mail
            .CC = Trim(ccmail)
            .BCC = Cells(11, 6)
            .Subject = Cells(12, 6)
            .BodyFormat = olFormatHTML
            bodymail = "<html><head></head><body>"
            For c = 1 To 9
            bodymail = bodymail + Cells(c + 12, 6) + "<br />"
            Next c
            bodymail = bodymail + "<br /><br /><br />" + "<b>" + Cells(21, 6) + "</b></html></body>"
            .HTMLbody = bodymail
            .Attachments.Add file
            .send
           
        End With
        On Error GoTo errore
        Cells(i, 4) = "INVIATA"
        Set OutMail = Nothing
        Set OutApp = Nothing
        Exit Sub

errore:
Cells(i, 3) = "ERRORE"

End Sub





Codice: Seleziona tutto
Sub listamail()
Dim i As Integer
Dim mail As String
Dim ccmail As String
Dim file As String
Dim percorso As String
Range("D2:D21").ClearContents
percorso = Cells(8, 5)
If Right$(percorso, 1) <> "\" Then percorso = percorso & "\"

i = 2

While Trim(Cells(i, 1)) <> ""
    mail = Cells(i, 1)
    file = percorso + Cells(i, 2)
    ccmail = Cells(i, 3)
    Call Inviamail(mail, file, ccmail, i)
    i = i + 1
    Wend
     
End Sub
r.marco75
Newbie
 
Post: 2
Iscritto il: 13/08/14 13:36

Sponsor
 

Re: macro invio mail multiple senza outlook

Postdi Anthony47 » 02/09/14 00:41

Ciao r.marco75, benvenuto nel forum.
Credo che la sintassi per cdosys sia
.AddAttachment file
e non
.Attachments.Add file

Tieni presente che di queste mail non rimane traccia sul tuo pc, quindi e' opportuno che te le invii per conoscenza.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13891
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: macro invio mail multiple senza outlook

Postdi r.marco75 » 02/09/14 23:09

grazie mille Anthony47 stavo impazzendo... ho cercato dappertutto e l'errore ce l'avevo di fronte gli occhi... ancora grazie ;)
r.marco75
Newbie
 
Post: 2
Iscritto il: 13/08/14 13:36


Torna a Applicazioni Office Windows


Topic correlati a "macro invio mail multiple senza outlook":


Chi c’è in linea

Visitano il forum: Nessuno e 14 ospiti

cron