none
Abrir o Outlook

    Question

  • Galera alguem pode me ajudar com essa solução:

     

     

    Estou gerando um arquivo, anexando e colocando os dados em seguida aplico o comando:

     

     

    client.Send(Message)

     

    Em seguida ele envia o e-mail normalmente.

     

     

    Agora estou precisando que ao inves de enviar o e-mail direto ele abra o outlook com o e-mail para enviar para que eu ainda possa edita-lo!..

    abraços

    Wednesday, April 04, 2007 8:54 PM

All replies

  • Qual é o tipo de aplicação? Se for Windows, você pode fazer algo assim:

     

    System.Diagnostics.Process.Start("mailto:alguem@dominio.com.br");

     


    Ricardo Oneda
    http://oneda.mvps.org/blog

    Wednesday, April 04, 2007 9:28 PM
    Moderator
  • Sim ela é uma aplicação de Windows,  porem não é só abrir o outlook, eu preciso abrir o Outlook e anexar um arquivo pdf que minha aplicação acabou de gerar, normalmente consigo fazer isso, só que apenas enviando de um só vez, eu estou querendo anexar e abrir o outlook
    antes de enviar,

    O endereço de e-mail guardo dentro de uma variavel String.
    Code Snippet

                   Dim oApp As Outlook._Application
                    Dim msg As String
                    Dim arqv As String

                    oApp = New Outlook.Application

                    Dim email As Outlook._MailItem
                    email = oApp.CreateItem(Outlook.OlItemType.olMailItem)

                    'Destinatário
                    email.To = Me.m_Email

                    'Título do E-mail
                    email.Subject = "Envio: " & CType(txtProposta.Text.Trim, String) & " [CSA]"

                    'Geração do arquivo PDF
                    arqv = GerarRelatorio(CType(IdProposta, Integer), CType(IdCenario, Integer))

                    If File.Exists(arqv) Then
                        email.Attachments.Add(arqv)
                    Else
                        Throw New Exception("Erro ao gerar o arquivo PDF.")
                    End If

                    'Define o corpo do e-mail
                    msg = "Mensagem para o usuário"
                    msg = msg & vbCrLf & "_____________________________________________________________________________________________________"
                    msg = msg & vbCrLf & "Este e-mail foi gerado automaticamente . Por favor, não o responda."

                    email.Body = msg
                  
                   email.Send()



    Nesse Codigos O E-mail é Enviado automaticamente, eu gostaria que ele fizesse a Abertura do Outlook antes para mim edita-lo caso necessite e envia-lo


    Obrigado!
    Thursday, April 05, 2007 2:01 PM
  • Para visualizar o e-mail ao inves de enviar basta somente você alterar o email.Send() para o email.

    Display()

    Friday, May 09, 2008 6:00 PM