Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Aggiungere 2° FILE ALLEGATO

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

Aggiungere 2° FILE ALLEGATO

Postdi scanacc » 25/02/22 12:27

carissimi, uso questa macro per spedire le mail
Codice: Seleziona tutto
Sub MAILAnteprima()

Dim OutApp As Object
Dim OutMail As Object
Dim EmailAddr As String
Dim Subj As String
Dim BodyText As String
Const LF = vbCrLf


Set OutApp = CreateObject("Outlook.Application")


If Cells(Range("I4").Value, "T").Value <> "" Then
Application.Run "REPORT_RUPM_creo_pdf" '<-- con questa stampo in pdf il REPORT RUPM
Application.Run "REPORT_RUPM_SMALL_creo_pdf" '<-- con questa stampo in pdf il REPORT RUPM

End If



''compilazione del testo di accompagnamento
    Sheets("INVIA MAIL").Select
    'Il comando OutFile serve per mandare 1 allegato
OutFile = Cells(Range("I4").Value, "Q").Value
OutFile1 = Cells(Range("I4").Value, "T").Value

For i = 5 To Range("J1000").End(xlUp).Row
    BDT = BDT & Cells(i, "J") & LF
Next i

''  (b)
Nominat = Cells(Range("I4").Value, "C").Value



EmailAddr = Cells(Range("I4").Value, "D").Value
Subj = Range("J4").Value
'End If           TOLTO ... SERVIVA PER GLI ORARI DEGLI APPUNTAMENTI
'
EmailAddr1 = Cells(Range("I4").Value, "E").Value
Subj = Range("J4").Value

EmailAddr2 = Cells(Range("I4").Value, "F").Value
Subj = Range("J4").Value



'HO INSERITO LA eMailAddr3 CON FUNZIONE STATICA
EmailAddr3 = Sheets("INVIA Mail").Range("N6").Value


'
'IMMAGINE = "<BR>" & "<img src=" & PERCORSOFILEIMMAGINE & "/></b><br>"


Set OutMail = OutApp.CreateItem(0)
With OutMail
'ricevuta di ritorno NOVITA' per la conferma di recapito aggiungere --> .OriginatorDeliveryReportRequested
If Sheets("INVIA MAIL").Range("M7").Value <> "" Then
.ReadReceiptRequested = True
End If

.To = EmailAddr
.CC = EmailAddr1 & ";" & EmailAddr2 & ";" & EmailAddr3
.BCC = ""
.Subject = Subj

'Istruzioni dove trovare l'allegato
If Cells(Range("I4").Value, "Q").Value <> "" Then
.Attachments.Add OutFile
End If

If Cells(Range("I4").Value, "W").Value <> "" Then
.Attachments.Add OutFile1
End If

'Usare ---> .htmlBody = BDT" solo se voglio inviare mail formattata
.Body = BDT
'.send
.Display 'or use .send

End With
Application.Wait (Now + TimeValue("0:00:01"))
'  (c)
Set OutMail = Nothing
'
'  (d)
Set OutApp = Nothing

'End If
   
End Sub

Ho provato ad aggiungere un 2° FILE allegato inserendo il percorso dalla cella W4 alla cella W10, ma mi va in debug su questo comando
Codice: Seleziona tutto
.Attachments.Add OutFile1
.
Avete una idea del motivo?
Mi date una mano per favore ...
Grazieeeeeeeeee
scanacc
Utente Senior
 
Post: 312
Iscritto il: 06/12/15 10:30

Sponsor
 

Re: Aggiungere 2° FILE ALLEGATO

Postdi Anthony47 » 25/02/22 19:50

E che c'e' scritto in Outfile1??
Comunque secondo me stai sbagliando qualcosa:

OutFile /Outfile1 vengono da colonna Q e T (la riga non si sa)
Codice: Seleziona tutto
OutFile = Cells(Range("I4").Value, "Q").Value
OutFile1 = Cells(Range("I4").Value, "T").Value


Ma mentre controlli che la colonna Q almeno non sia vuota prima di provare ad allegare Outfile (If Cells(Range("I4").Value, "Q").Value <> "" Then), per Outfile1 controlli qualcos'altro: If Cells(Range("I4").Value, "W").Value <> "" Then

Cosa sia giusto e cosa sia sbagliato (colonna T o colonna W?) lo puoi guardare solo tu

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 18195
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Aggiungere 2° FILE ALLEGATO

Postdi scanacc » 02/03/22 10:25

Grazie
scanacc
Utente Senior
 
Post: 312
Iscritto il: 06/12/15 10:30

Re: Aggiungere 2° FILE ALLEGATO

Postdi scanacc » 02/03/22 15:16

Caro Anthony, se io volessi inserire una griglia all'interno del corpo della mail che incolli quello che c'è scritto nel foglio1 da a1 a c10, come devo fare? Cosa devo cambiare?
scanacc
Utente Senior
 
Post: 312
Iscritto il: 06/12/15 10:30

Re: Aggiungere 2° FILE ALLEGATO

Postdi Anthony47 » 03/03/22 00:51

Se vuoi inserire "una griglia" col contenuto di una area di foglio allora suggerirei di usare la funzione RangePublish, come ad esempio suggerito ad altro utente qui: viewtopic.php?f=26&t=111189#p652879

Dovrai pero' compilare il messaggio in formato html

Quindi, invece che usare .Body = BDT userai:
Codice: Seleziona tutto
.HTMLBody = "<html><p>" & BDT & RangePublish("Foglio1", "A1:C10") & "<br>Cordiali saluti <br> Il tuo scanacc </p></html>"


Il codice della Function RangePublish e' pubblicato nella discussione linkata sopra.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 18195
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Aggiungere 2° FILE ALLEGATO":

file audio /link html
Autore: nikita75
Forum: Software Windows
Risposte: 0

Chi c’è in linea

Visitano il forum: Nessuno e 67 ospiti