Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

invio email con allegato pdf x Express

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

invio email con allegato pdf x Express

Postdi pippo1300 » 23/07/10 07:57

ciao a tutti ho letto il post EXCEL - creazione macro per invio automatico email
ma la discussione si è complicata tanto che non ci ho capito molto.

premesse: uso excel 2007, uso outlook express
in C9=nome cliente H7=tipo di contratto E17=numero contratto C26=note i12=email cliente
vorrei fosse possibile inviare l'email con allegato (pdf) non da salvvare prima ma
lanciato da invia - allegato di posta elettronica PDF.
fino adesso sono arrivato qui:
Codice: Seleziona tutto
Sub Macro5()
Dim OutApp As Object
Dim OutMail As Object
Dim EmailAddr As String
Dim Subj As String
Dim BodyText As String

EmailAddr = Range("i12").Value
Subj = Range("h7").Value
BodyText = Range("C26").Value

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

With OutMail
.to = EmailAddr
.CC = ""
.BCC = ""
.Subject = Subj
.Body = BodyText
'.Attachments.Add ActiveWorkbook.FullName
.Display 'or use .send
End With

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

punto 1 non si apre outlook Express ma outlook di office
punto 2 vorrei c9+h7+e17 sulla stessa riga oggetto
punto 3 non c'e il file pdf allegato convertitosi con invia (senza salvarlo)

grazie.
pippo1300
Utente Junior
 
Post: 20
Iscritto il: 23/06/10 11:22

Sponsor
 

Re: invio email con allegato pdf x Express

Postdi Anthony47 » 23/07/10 15:10

Outlook Express, per quanto ne so, non ha il supporto vba per l' automazione; la macro che hai citato apre Outlook e non puo' essere altrimenti.
Con OutlookExpress (anzi, con qualsiasi sia il tuo programma predefinito di posta) puoi usare il metodo SendMail; ad esempio qualcosa come
Codice: Seleziona tutto
Sbj=Range("H7").Value
Destin =Range("I12").Value   
ActiveWorkbook.SendMail Recipients:=Destin, Subject:=Sbj

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

Re: invio email con allegato pdf x Express

Postdi pippo1300 » 23/07/10 15:50

ciao Anthony grazie per la risposta
il codice non è quello che cercavo ma potrebbe andare

non si potrebbe gentilmente allegare il pdf del file che vedo sullo schermo
come spiego nel post precedente.

ciao fammi sapere.
pippo1300
Utente Junior
 
Post: 20
Iscritto il: 23/06/10 11:22

Re: invio email con allegato pdf x Express

Postdi Anthony47 » 23/07/10 19:40

Come detto, OutlookExpress non consente molta automazione; in piu' quella cosa che dici tu (inviare il file in lavorazione come pdf) e' una prestazione del sistema operativo, un po' come una stampa su stampante virtuale, non so proprio se la puoi automatizzare da vba.
Vediamo comunque se altri hanno qualche buona idea...

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

Re: invio email con allegato pdf x Express

Postdi pippo1300 » 27/07/10 17:31

Anthony hai proprio ragione ho fatto un garande giro in rete ma non c'e soluzione ha quello che volevo inizialmente.
però dimmi se è fattibile questa mia maniera:
Codice: Seleziona tutto
Sub conversione_in_pdf()
        ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub

Facendo partire questo vba il file excel viene convertito ed aperto in pdf (mediante Adobe Acrobat installato sul mio pc)
fatto questo, bisogna mandare l'email tramite Adobe Acrobat pigiando invia per e-mail.
a questo punto si apre la lettera outlook express con allegato pdf.
Mi trovi/trovate almeno il sistema di copia/incolla (in VBA) delll' indirizzo e_mail che risiede nella cella i12 ?
si annienta quando si esegue la macro, bisogna copiarlo in un' altro modo.

fammi saper perfavore come è meglio muovermi.
pippo1300
Utente Junior
 
Post: 20
Iscritto il: 23/06/10 11:22

Re: invio email con allegato pdf x Express

Postdi Anthony47 » 27/07/10 22:59

Se mettendo Range("I12").copy subito prima di End Sub il valore non rimane in memoria allora non ho idea.
Forse dovresti considerare l' uso di Outlook, almeno per questa automazione.

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


Torna a Applicazioni Office Windows


Topic correlati a "invio email con allegato pdf x Express":

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

Chi c’è in linea

Visitano il forum: patel e 4 ospiti