ABRIR MSG SALVA COMO ARQUIVONO CORREIO PADRAO

USUARIO.EXCLUIDOS 11/03/2004 01:44:56
#14915
Oi gente.

Seguinte. Gravo as msgs do meu e-mail em arquivos (.EML). Gostaria de fazer uma rotina no VB que eu pudesse passar o nome do arquivo como parà¢metro e ele abrisse a msg no meu programa de correio padrão.

Abraços,
USUARIO.EXCLUIDOS 11/03/2004 01:53:50
#14917 Resposta escolhida
utilize-se do método Shell[b] ou da api[b]Private 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
Const SW_SHOWNORMAL = 1

Para abrir os arquivos.
USUARIO.EXCLUIDOS 12/03/2004 01:48:24
#15077
Preste atenção, esse código servirá para abrir qualquer documento com o programa padrão.
'em um módulo
Private 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
Private Const SW_HIDE = 0
Private Const SW_MAXIMIZE = 3
Private Const SW_MINIMIZE = 6
Private Const SW_NORMAL = 1

Public Enum ShowWindow
    Maximizada = SW_MAXIMIZE
    Minimizada = SW_MINIMIZE
    Normal = SW_NORMAL
    Oculta = SW_HIDE
End Enum

Public Function Abrir(ByVal hWnd As Long, ByVal FileName As String, Optional ShowCmd As ShowWindow = 1) As Boolean
Abrir = False
    On Error Resume Next
        ShellExecute hWnd, "OPEN", FileName, "", "", ShowCmd
Abrir = True
End Function


Depois disso faça algo similar a isso no seu Form
Private Sub Command1_Click()
Dim FileName As String
FileName = "c:\meu arquivo.eml"
MsgBox "O arquivo: " & FileName & IIf(Abrir(Me.hWnd, FileName, Maximizada), " Foi aberto sem falhas.", " Não foi aberto.")
End Sub


Testei aqui e funcionou direito, veja aí.
Espero ter ajudado.
Tópico encerrado , respostas não são mais permitidas
Voltar