ABRIR MSG SALVA COMO ARQUIVONO CORREIO PADRAO

 Tópico anterior Próximo tópico Novo tópico

ABRIR MSG SALVA COMO ARQUIVONO CORREIO PADRAO

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#14915 - 11/03/2004 01:44:56

USUARIO.EXCLUIDOS

Cadast. em:


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 parmetro e ele abrisse a msg no meu programa de correio padro.

Abraos,



Resposta escolhida #14917 - 11/03/2004 01:53:50

USUARIO.EXCLUIDOS

Cadast. em:


utilize-se do mtodo 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.



#15077 - 12/03/2004 01:48:24

USUARIO.EXCLUIDOS

Cadast. em:


Preste ateno, esse cdigo servir para abrir qualquer documento com o programa padro.
'em um mdulo
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 faa 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.", " No foi aberto.")
End Sub


Testei aqui e funcionou direito, veja a.
Espero ter ajudado.



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por WEBMASTER em 18/08/2009 10:03:45