USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Galera help - ME
Cezinha
DIVINOPOLIS
MG - BRASIL
Postada em 24/10/2005 08:17 hs            
E o seguinte desenvolvi um software, de cadastro de produto, cliente/fornecedor e ETC... e todos os cadastros gerão um relatorio, porem precisso agora gerar uma forma desse relatorio ser enviado diretamente co sistema para um e-mail, ou abri o Outlook, para um direcionamento de endereço e o relatorio ja anexado...
Alguma dica de como fazer.....
Valleu gallera aguardo uma ajuda...
     
Gboese
SANTO ANDRÉ
SP - BRASIL
Postada em 24/10/2005 08:31 hs            
O jeito mais fácil é você usar MAPI... Aqui no VBWEB têm vários exemplos.. Aí vai um deles, da uma olhada e vê o que você consegue fazer
 
 
Abraços

Gustavo Boese
     
rdeletric
SÃO JOSÉ DO RIO PRETO
SP - BRASIL
Postada em 24/10/2005 08:33 hs            
'vê se te serve:
'Em um form:
 
Option Explicit
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 Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Command1_Click()
Dim zip_file As String, Ret As Long
  
    zip_file = App.Path & "nomedoseuarquivo.zip"
    ShellExecute Me.hWnd, "Open", _
        "mailto:teste@ig.com.br?subject=" & zip_file & "&body=Zip File Attached", _
        vbNullString, vbNullString, vbNormalFocus
  
    While Ret = 0
        DoEvents
        Ret = FindWindow(vbNullString, zip_file)
    Wend
   
    SendKeys "%ia" & zip_file & "{TAB}{TAB}{ENTER}"
End Sub
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página