Imprimir página | Cerrar ventana

Abrir mensaje Outlook .msg

Impreso de: Foro de Access y VBA
Categoría: Otros de Microsoft: Windows y Office
Nombre del foro: Otros Productos Microsoft
Descripción del foro: PowerPoint, Navision, Visio, FrontPage, InfoPath etc
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=66082
Fecha de impresión: 29/Febrero/2020 a las 05:18


Tema: Abrir mensaje Outlook .msg
Publicado por: peppemix
Asunto: Abrir mensaje Outlook .msg
Fecha de publicación: 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.



Respuestas:
Publicado por: peppemix
Fecha de publicación: 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.


Publicado por: RRoca
Fecha de publicación: 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)



Imprimir página | Cerrar ventana