Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

EXCEL ed ALLEGATI EMAIL

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 ed ALLEGATI EMAIL

Postdi scanacc » 05/01/16 14:16

Carissimi, ho un piccolo problema, sono riuscito ad adeguare una macro che ho trovato per inviare mail . Ho un problema...quando voglio inviare anche il file allegato, se la macro trova l'attach, invia la mail altrimenti mi da errore e non lo invia. Vorrei invece correggere la macro affinchè in caso di file allegato lo invii, ma se non lo trova vorrei la inviasse ugualmente (ovviamente senza file). Nella speranza di essermi spiegato, allego il codice macro che uso
Codice: Seleziona tutto
Sub PROVAMAIL2007()
Dim OutApp As Object
Dim OutMail As Object
Dim EmailAddr As String
Dim Subj As String
Dim BodyText As String
Const LF = vbCrLf
'  (a)
PERCORSOFILEIMMAGINE = """C:\io.JPG"""

Set OutApp = CreateObject("Outlook.Application")
''compilazione del testo di accompagnamento
Outfile = Cells(Range("G4").Value, "O").Value

For I = 5 To Range("H100").End(xlUp).Row
    BDT = BDT & Cells(I, "H") & LF
Next I

''  (b)
Nominat = Cells(Range("G4").Value, "A").Value

EmailAddr = Cells(Range("G4").Value, "B").Value
Subj = Range("H4").Value
'
EmailAddr1 = Cells(Range("G4").Value, "C").Value
Subj = Range("H4").Value

EmailAddr2 = Cells(Range("G4").Value, "D").Value
Subj = Range("H4").Value
'
IMMAGINE = "<BR>" & "<img src=" & PERCORSOFILEIMMAGINE & "/></b><br>"


Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = EmailAddr
.CC = EmailAddr1 & ";" & EmailAddr2
.BCC = ""
.Subject = Subj
'.Attachments.Add Outfile
.htmlBody = BDT & IMMAGINE
'.send
.Display 'or use .send
'.send
End With

'  (c)
Set OutMail = Nothing
'
'  (d)
Set OutApp = Nothing


End Sub
scanacc
Utente Junior
 
Post: 58
Iscritto il: 06/12/15 10:30

Sponsor
 

Re: EXCEL ed ALLEGATI EMAIL

Postdi ricky53 » 05/01/16 17:10

Cosa intendi con
...
ma se non lo trova vorrei la inviasse ugualmente (ovviamente senza file)
...


Che il file allegato esista nel tuo PC ???
Oppure ... ???

Prova a mettere un controllo sul valore della variabile "Outfile" che se è "impostata" allora esegue l'istruzione
Codice: Seleziona tutto
.Attachments.Add Outfile
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: EXCEL ed ALLEGATI EMAIL

Postdi scanacc » 05/01/16 18:48

grazie per la celere risposta!
In merito alla tua richiesta di spiegazioni ti dico che vorrei che la mail fosse inviata ugualmente anche se non è presente l'attach ... invece adesso mi da errore.
In merito invece al tuo suggerimento (che reputo ottimo), Il punto è che non so scriverne il codice...mannaggia!!!
scanacc
Utente Junior
 
Post: 58
Iscritto il: 06/12/15 10:30

Re: EXCEL ed ALLEGATI EMAIL

Postdi scanacc » 05/01/16 19:48

... grazie del consiglio 2 volte .... sono riuscito ad adottarlo ...ecco il pezzo che ho variato e sembra che vada:
Codice: Seleziona tutto
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = EmailAddr
.CC = EmailAddr1 & ";" & EmailAddr2
.BCC = ""
.Subject = Subj
If Cells(Range("G4").Value, "O").Value <> "" Then
.Attachments.Add Outfile
End If
.htmlBody = BDT & IMMAGINE
'.send
.Display 'or use .send
'.send
End With
scanacc
Utente Junior
 
Post: 58
Iscritto il: 06/12/15 10:30

Re: EXCEL ed ALLEGATI EMAIL

Postdi Anthony47 » 05/01/16 21:04

Humm...
Hai controllato che il ricevente riceva l'immagine che inserisci?

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

Re: EXCEL ed ALLEGATI EMAIL

Postdi scanacc » 06/01/16 18:13

Me la sono mandata a me e tutto sembra andare bene... Ma pensi sia un test attendibile mandarla alla mia posta elettronica?
scanacc
Utente Junior
 
Post: 58
Iscritto il: 06/12/15 10:30

Re: EXCEL ed ALLEGATI EMAIL

Postdi Anthony47 » 07/01/16 15:16

Non e' attendibile se leggi la mail sullo stesso Pc da cui l'hai inviata.

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

Re: EXCEL ed ALLEGATI EMAIL

Postdi scanacc » 08/01/16 22:21

Confermo l'arrivo sul cellulare di mio figlio
scanacc
Utente Junior
 
Post: 58
Iscritto il: 06/12/15 10:30


Torna a Applicazioni Office Windows


Topic correlati a "EXCEL ed ALLEGATI EMAIL":


Chi c’è in linea

Visitano il forum: Lucio Peruggini e 3 ospiti

cron