Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Macro per invio email con 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

Macro per invio email con allegato

Postdi franz79 » 16/09/14 16:11

Salve,ho un problema con una macro realizzata tramite registratore;la macro dovrebbe copiare una parte di un file in un altro file ,esportare quest' ultimo come allegato pdf aprendomi la finestra di outlook dove inserire la destinazione.Tutto bene eccetto che l'allegato non arriva in pdf ma rimane xlsm.
Di seguito la macro in questione:

Sub Macro10()
'
' Macro10 Macro
'

'
Range("Q2:Q71").Select
Selection.Copy
Windows("xxxx.xlsm").Activate
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Marco\AppData\Local\Temp\xxxx.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Application.Dialogs(xlDialogSendMail).Show
End Sub
Grazie in anticipo per le risposte.
franz79
Newbie
 
Post: 6
Iscritto il: 27/05/14 10:06

Sponsor
 

Re: Macro per invio email con allegato

Postdi zanatta77 » 17/02/15 17:31

Buongiorno a tutti
Avrei bisogno anchio di un aiuto per allegare un file alla macro invia mail che mi parte da un pulsante posto su UserForm
Non riesco nella parte Attachment.add a inserirla mi interessa per office 2010 e quindi visual basic 7.0
Questo è quello che sto provando :
Codice: Seleziona tutto
Private Sub Inviamail_Click()
Mail.Visible = True
Mail.Value = Foglio4.Range("XFD1")
Dim OLook As Object
Dim MItem As Object
Dim FSend As Boolean
Dim MAddr As String, MSubj As String
MAddr = Mail.Value
MSubj = "avvisi."
Set OutLook = CreateObject("Outlook.Application")
Set MItem = OutLook.createitem(0)
MItem.to = MAddr
MItem.Subject = MSubj
Attachment.Add = "C:\Users\ciccillo\Desktop\Radio\  & Foglio2.Range" ("A9").pdf' qua mi perdo devo creare un set Attachment oppure una variabile   
MItem.body = "Buongiorno" _
& "" & " vi anticipiamo con questa email ecc ecc." & vbCrLf & "Buona giornata." _
& vbCrLf & vbCrLf & vbCrLf & vbCrLf & "Saimon serrini"
MItem.Display
Item.send
Set OutLook = Nothing
Set MItem = Nothing
Mail.Value = ""
Email.Hide
End Sub


la patch che mi interessa inserire è sempre questa come allegato fatta dal percorso e il numero contenuto in Foglio2.Range ("A9") :
Codice: Seleziona tutto
C:\Users\ciccillo\Desktop\Radio\  & Foglio2.Range ("A9").pdf"
Windows 8
Office 2010
Avatar utente
zanatta77
Utente Senior
 
Post: 114
Iscritto il: 01/12/12 16:12

Re: Macro per invio email con allegato

Postdi Anthony47 » 17/02/15 18:32

Inserisci prima di MItem.Display:
Codice: Seleziona tutto
MItem.Attachments.Add "C:\Users\ciccillo\Desktop\Radio\"  & Foglio2.Range ("A9").Value & ".pdf"


Ne approfitto per chiedere scusa a franz, la cui domanda ando' deserta e non so perche'... Tra l' altro, per quello che vedo, quella macro allega correttamente il ".pdf", anche se nell' Oggetto della mail viene indicato il file xlsm.

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


Torna a Applicazioni Office Windows


Topic correlati a "Macro per invio email con allegato":

Email curiose
Autore: gimart
Forum: Applicazioni Office Windows
Risposte: 6

Chi c’è in linea

Visitano il forum: Anthony47 e 5 ospiti