invio email con allegato pdf x Express

[pippo1300]

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.

[Anthony47]

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

[pippo1300]

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.

[Anthony47]

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

[pippo1300]

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.

[Anthony47]

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