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...

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

 

http://www.vbweb.com.br/dicas_visual.asp?Codigo=2173&Classificacao=

 

Abraços

'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