ciao, 

mi sono arenato su una cosa che dovrebbe essere banale ma evidentemente non è cosi.

Quando faccio click destro dal Dektop su un file e scelgo "invia mail", si apre una mail OUTLOOK con l'allegato selezionato, 

desidero "selezionare il nome dell'allegato ed aggiungerlo sia nell'oggetto che nel corpo, ma non riesco. Non capisco davvero dove sbaglio, un consiglio per cortesia?

Sub provo()

 Dim ex As Explorer
 Dim mail As MailItem
 Set ex = Application.ActiveExplorer
 Dim strPaste  As Variant
 Dim allegato As Attachments

    Dim NewMail As Outlook.MailItem
    Set NewMail = Application.ActiveInspector.currentItem
   'Dim DataObj As MSForms.DataObject
'Set DataObj = New MSForms.DataObject
'DataObj.GetFromClipboard
'strPaste = DataObj.GetText(1)

With NewMail
  .To = "marcello.grisini@gmail.com;  "

  'allegato = Outlook.Application.ActiveExplorer.Selection.Item(1).Attachments.Item(1).FileName
  'allegato = Outlook.ex.Selection.Item(1).Attachments.Item(1).FileName
  'allegato = Attachments.Item(1).FileName
   allegato = Attachments.Item.FileName
 
  'NewMail.Subject = "" & strPaste
 NewMail.Subject = "Per cortesia da controllare" & "   " & allegato
 .Body = "Ciao questo il file" & vbNewLine & "Grazie Marcello" & vbNewLine & allegato
 
  ' Set olInsp = .GetInspector
      '  Set wdDoc = olInsp.WordEditor
      '  Set oRng = wdDoc.Range
      '  oRng.collapse 1
       ' oRng.Paste
 
  .Display ' se ci metti .send spedisce automaticamente
End With

End Sub


'DataObj.GetFromClipboard