Testo in TextBox nel corpo email

[WCB]

Risultato Ctrl + g =
C:\Users\...\Desktop\.pdf
+#
C:\Users\...\Desktop\.pdf
+#

Visto che la mail viene Visualizzata (.Display) controlla visivamente se l'allegato risulta inserito? Se No, provando a inserirlo col comando Allega esso viene inserito?

l'email me la visualizza senza allegato, se provo ad aggiungerlo tramite il tasto "inserisci" di Outlook me lo inserisce senza problemi.
Il file viene salvato nel desktop.

[zsadist]

ho provato.. così funziona
devi inserire, per ogni evenienza, il riferimento a microsoft outlook xx.0 Object library
poi

.Attachments.add v (con la s)


e ricorda

file = Cells(3,1).Value & ".pdf"

[Anthony47]

Hai eliminato On Error Resume Next? Con che effetti?

Edit: ATTACHMENTS.ADD!
Bravo ZSadist, occhio di falco!
Avessi tolto On Error Resume Next te ne saresti accorto prima!

[zsadist]

allora.. il tuo codice

Codice: Seleziona tutto

Private Sub CommandButton6_Click()
Dim OutApp As Object
Dim OutMail As Object
Dim percorso As String
Dim file As String
Dim v As Variant
v = Application.GetSaveAsFilename(Range("A3").Value, "PDF Files (*.pdf), *.pdf")

If VarType(v) <> vbString Then Exit Sub
With ActiveSheet
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=v, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
    End With
percorso = "c:\users\....\desktop\" '<******* mi raccomando.. scrivilo correttamente
'file = Cells(1, 3).Value & ".pdf" '<******* no questo
file = Cells(3, 1).Value & ".pdf" ''<******* ma questo
v = percorso & file
Set OutApp = CreateObject("Outlook.Application")
        OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next

With OutMail
  .To = "miaemail@email.com"
  .Subject = "PROVA"
  .HTMLBody = TextBox3.Text
  .Attachments.Add v
  .Display
  '.Send
 
End With
Set OutMail = Nothing
        Set OutApp = Nothing

End Sub

poi



<----- beh.. la tua versione

[zsadist]

Hai eliminato On Error Resume Next? Con che effetti?

Edit: ATTACHMENTS.ADD!
Bravo ZSadist, occhio di falco!
Avessi tolto On Error Resume Next te ne saresti accorto prima!

grazie, ma mi fai arrossire così

[WCB]

Maaaaa guarda un pò.... così semplice ma tanto complicato!!
A quanto pare avevo dimenticato di mettere questa maledetta "s" alla fine di Attachment.Add
zsadist...non so che dirti...GRAZIE INFINITISSIME
Anthony47 grazie mille anche a te che ti sei cimentato nell'impresa
Ancora grazie e buona giornata

[zsadist]

alla prossima