Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Excel [vba] invio mail 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

Excel [vba] invio mail outlook

Postdi laica » 23/12/14 22:10

Ciao a tutti!
Un paio di anni fa ho scritto una macro per inviare gli auguri di natale per mail da lista excel tramite outlook grazie al viewtopic.php?f=26&t=62073&hilit=email&start=140#p553251

Negli ultimi 2 anni ha sempre funzionato, quest'anno mi dà un errore strano quando tento di immettere l'indirizzo mail (se tolgo quella parte, fa lo stesso con oggetto e testo).
Stesso pc, stesso software, stesso elenco. Ho provato a salvare (invece di xls) xlsm, ma niente. Ho provato a inserire anche le righe relative ad Application.Wait, ma semplicemnte parte solo la sincronizzazione outlook prima che si ripresenti l'errore. Provato anche a passare da POP ad IMAP e viceversa, ma niente.

Errore: Errore di run-time '-2147417851 (80010105)'
Ho cercato cosa significa, senza trovare soluzione per me: -2147417851 (80010105) Il server ha sollevato un'eccezione.


Grazie!!


Codice:
'spegnere radio-wireless per poter controllare la posta in uscita prima di spedire


Codice: Seleziona tutto
Sub Invia_Email_a_tutti_i_Medici()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim EmailAddr As String
    Dim Subj As String
    Dim BodyText As String
   
    Foglio1.Select
   
' RR contiene il numero di utenti cui inviare le e-mail (1 per utente)
    RR = Range("B" & Rows.Count).End(xlUp).Row

' I dati iniziano dalla terza riga
    For I = 3 To RR
        Set OutApp = CreateObject("Outlook.Application")
        Set OutMail = OutApp.CreateItem(0)
        With OutMail
       
' La colonna "H", ossia la 8^, contiene gli indirizzi e-mail dei vari destinatari
            .To = Cells(I, 8)
           
' La colonna "E", la 5^, contiene l'oggetto della e-mail
            .Subject = Cells(I, 5)
           
' La colonne "B C D F G", ossia le 2^ 3^ 4^ 6^ 7^, contengono il testo della e-mail
            .Body = (Cells(I, 2) & Cells(I, 3) & Cells(I, 4) & Cells(I, 6) & Cells(I, 7))

' Le virgolette contengono l'eventuale percorso ove si trova il file da allegare
            .Attachments.Add "C:\xmas.jpg"
            .send

        End With
        Set OutMail = Nothing
        Set OutApp = Nothing
    Next I
End Sub
laica
Newbie
 
Post: 1
Iscritto il: 30/11/10 21:31

Sponsor
 

Re: Excel [vba] invio mail outlook

Postdi Anthony47 » 24/12/14 20:04

Ciao laica, benvenuto nel forum.
C' e' stato recentemente un aggiornamento che ha creato parecchi problemi agli applicativi Office; applica i suggerimenti dati qui: viewtopic.php?f=26&t=103469#p602478 o qui viewtopic.php?f=26&t=103502&p=602699#p602699

Se cosi' non si risolve vedremo cosa fare.

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: 13895
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Excel [vba] invio mail outlook":


Chi c’è in linea

Visitano il forum: jos235, papiriof e 17 ospiti