'para utilizar este codigo debes hacer referencia
'Microsoft Outloock en el menu Proyecto de VB busca
'"Referencias", click, busca Microsoft Outloock 9.0
'marcalo y luego aceptar.
'Para que funcione este codigo debes tener un Control
'"CommonDailog" en tu formulario y botones
'con los nombres de abajo.
Dim archivo As String
Dim myOlApp As New Outlook.Application
Dim myOLItem As Outlook.MailItem
Dim myattachments As Outlook.Attachments
Private Sub cmdArchivos_Click()
archivo = ""
With CommonDialog1
.DialogTitle = "Archivo a enviar ...."
.Filter = "*.*|*.*|*.txt|*.txt|*.doc|*.doc|"
.InitDir = "D:\Mis Documentos\"
.ShowOpen
End With
archivo = CommonDialog1.FileName
If CommonDialog1.FileName = "" Then
MsgBox "Debe seleccionar un archivo para continuar", vbInformation + vbOKOnly, "Inforamción del Sistema"
cmdEnviarCorreo.Enabled = False
Else
cmdEnviarCorreo.Enabled = True
With myOLItem
.To = "
[email protected]" 'esto en un textbox
.CC = "
[email protected]" 'esto en un textbox
.Subject = "Espero ayudarte con esto..." 'esto en un textbox
.Body = "Archivos adjuntos:" & vbCrLf 'esto en un textbox
End With
myattachments.Add archivo
End If
CommonDialog1.FileName = ""
End Sub
Private Sub cmdEnviarCorreo_Click()
myOLItem.display
'si quieres enviar sin ver los datos entonces