SoloCodigo

Yo lo hago de la siguiente manera:

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

      With Itm
        '.DeleteAfterSubmit = True 'Esta opción elimina el correo de la bandeja de enviados
        .Subject = cAsunto
        .To = **Correo en cuestión**
        .Body = cCuerpo
        .Attachments.Add strFichero
        .Send
      End With

Creo que este código da problemas con el outlook Express, pero no estoy seguro. Con el Outlook normal funciona de maravilla.

Saludos