SoloCodigo

Private Sub ucbOK_Click()
Dim AppOutlook As Object
Dim Itm As Object

  cAsunto = “Asunto del correo”
  cCuerpo = “Cuerpo del correo”
 
  Set AppOutlook = CreateObject ("Outlook.Application")

      'mandarlo por correo
      Set Itm = AppOutlook.createitem(0)

      With Itm
        '.DeleteAfterSubmit = True ‘(Con esto consigues que no guarde copia en enviados)
        .Subject = cAsunto
        .To = "Hola@Tio.com"
        .Body = cCuerpo
        .Attachments.Add “Ruta y Nombre del Fichero a Añadir”
        .Send
      End With

    AppExcel.Quit
    Set AppExcel = Nothing
 
End Sub