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.