RE:Mandar correo desde VB con archivo adjunto !!
Aqui te mando este codigo que permite el envio de un archivo o de su enlace.
Espero que te sirva
Un saludo
Private Sub EnviarUnFichero(ByVal RutaFich As String, Optional SiEnlace As Boolean, Optional Docu As String)
''Codigo para envia un correo electronico con datos adjuntos.
Dim Miaplicacion As Outlook.Application, MiMensaje As Outlook.MailItem
Dim Receptor As Recipient, ArchivosAEnviar As String
Dim VNombreFichero As String, Ruta As String, RutaFisFichero As String
Dim i As Long, Seleccionados As Integer
Dim Fichero As String
SiErrorOutlook = False
On Error GoTo ControlarError
Seleccionados = 0
Obtener_Path_y_Fichero RutaFisFichero, VNombreFichero, Ruta
If RutaFich <> "" Then
Set Miaplicacion = CreateObject("outlook.application")
Set MiMensaje = Miaplicacion.CreateItem(olMailItem)
If SiEnlace = True Then
MiMensaje.Subject = " Ubicacion del Documento: '" & Docu & "'."
MiMensaje.Body = "El documento se encuentra en: '" & RutaFich & "'."
MiMensaje.Display
Else
MiMensaje.Attachments.Add (RutaFich)
Obtener_Path_y_Fichero RutaFich, VNombreFichero, "" '(VE) 6/5/2003
MiMensaje.Subject = " Entrega del Documento : " & VNombreFichero '(VE) 6/5/2003
MiMensaje.Display
End If
Set MiMensaje = Nothing
Set Miaplicacion = Nothing
End If