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
