** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Otros Productos Microsoft
  Mensajes nuevos Mensajes nuevos RSS - Abrir mensaje Outlook .msg
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoAbrir mensaje Outlook .msg

 Responder Responder
Autor
Mensaje
peppemix Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 31/Marzo/2006
Localización: España
Estado: Sin conexión
Puntos: 34
Enlace directo a este mensaje Tema: Abrir mensaje Outlook .msg
    Enviado: 31/Octubre/2010 a las 11:46
Hola a todos. No se como llamar al Outlook 2007 para que al mismo tiempo abra un mensaje guardado como xxxxx.msg. He probado varios metodos pero me pone el mensaje como archivo adjunto.Gracias de antemano.
Ensayo y error, otra forma de aprender a tener paciencia.
Arriba
peppemix Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 31/Marzo/2006
Localización: España
Estado: Sin conexión
Puntos: 34
Enlace directo a este mensaje Enviado: 31/Octubre/2010 a las 13:12
He encontrado una funcion que puso xavi, es esta:
 
'Esto en un modulo Bas de tu MDB
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Public Const SW_SHOW = 1

'Esto en cualquier boton de comando de un formulario

ShellExecute Me.hwnd, "open", "C:\Ruta\documentoword.doc", "", "", SW_SHOW
¿Alguien sabe como pasar al mismo tiempo al Outlook los parametros de destinatario y motivo del mensaje?
Ensayo y error, otra forma de aprender a tener paciencia.
Arriba
RRoca Ver desplegable
Colaborador
Colaborador


Unido: 02/Enero/2006
Localización: España
Estado: Sin conexión
Puntos: 4817
Enlace directo a este mensaje Enviado: 31/Octubre/2010 a las 19:12
Hola:
 
Esta es una rutina que extraje del foro y que hace lo que quieres.
 
Sub EnviarPorCorreoSimple(SubjectStr As String, _
                            BodyStr As String, _
                            StrTo As String, _
                            StrComo As String, _
                            Optional StrCc As String = "", _
                            Optional StrBCc As String = "", _
                            Optional Archivo As String = "")
   
    Set OutlookObj = New Outlook.Application
    'Set OutlookObj = CreateObject("Outlook.Application")
    Set myOLItem = OutlookObj.CreateItem(olMailItem)
  
    With myOLItem
        .Subject = SubjectStr
        .Body = BodyStr
        .To = StrTo
        .CC = StrCc
        .BCC = StrBCc
        If Archivo <> "" Then
            .Attachments.add Archivo, 1, 1
        End If
        If StrComo = "Enviar" Then
            .Send
        Else
            .Display
        End If
    End With
    Set OutlookObj = Nothing
    Set myOLItem = Nothing
End Sub
Si algo no lo comprendes preguntalo.
 
Saludos.
 
Romain Rolland (1866-1944) escritor y ensayista frances dijo: Crear, es matar la muerte. (para mi, filosoficamente penetrante)
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable