none
Enviar email Outlook qualquer versão Office RRS feed

  • Pergunta

  • Olá pessoal,

    Tenho um sistema que roda em vários micros e cada um deles com versões diferentes do office.

    O meu código não está dando certo, segue

    referenciei o outlook e usei o imports

     

    Imports Microsoft.Office.Interop

        Private Sub btnEnviar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnviar.Click
            Cursor.Current = Cursors.WaitCursor
            Try
                Dim tempApp As Microsoft.Office.Interop.Outlook.Application = New Microsoft.Office.Interop.Outlook.Application
                'Dim tempApp = GetObject(, "Outlook.Application")
                Dim tempNS As Outlook.NameSpace
                Dim MailFolder As Outlook.MAPIFolder
                tempNS = tempApp.GetNamespace("MAPI")
                tempNS.Logon(, , True, True)

                Dim newMail As Outlook.MailItem = Nothing
                MailFolder = tempNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderOutbox)
                newMail = MailFolder.Items.Add(Outlook.OlItemType.olMailItem)
                With newMail
                    .To = txtPara.Text
                    .Subject = txtAssunto.Text
                    .Body = txtMensagem.Text
                    .Send()
                End With
                newMail = Nothing
                MailFolder = Nothing
                tempNS = Nothing
                tempApp = Nothing

                DialogResult = DialogResult.Yes
            Catch ex As Exception
                MsgBox(ex.ToString())
                DialogResult = DialogResult.No
            Finally
                Cursor.Current = Cursors.Default
            End Try

        End Sub

     

    se eu usar essa linha

    Dim tempApp As Microsoft.Office.Interop.Outlook.Application = New Microsoft.Office.Interop.Outlook.Application

    ele só funciona no office2007

    se eu usar essa linha, ele dá a mensagem de que não posso criar objeto activex

    Dim tempApp = GetObject(, "Outlook.Application")

    o que faço ?

    quarta-feira, 8 de fevereiro de 2017 08:11

Respostas

  • Sames,

    Tente utilizando este projeto do Codeplex: http://netoffice.codeplex.com/

    Ele suporta diferentes versões do Office.


    If you found this post helpful, please "Vote as Helpful". If it actually answered your question, remember to "Mark as Answer".

    Se achou este post útil, por favor clique em "Votar como útil". Se por acaso respondeu sua dúvida, lembre de "Marcar como Resposta".

    quarta-feira, 8 de fevereiro de 2017 14:03