Member Avatar for mbrown686886

Hi Daniweb Community,
I have a application that opens a pdf viewer and I would like to email the current(one in the pdf viewer) as an attachment in Outlook. I have listed the code below that opens the pdf viewer and I have listed the code to send an email with Outlook. The problem is when I code to add an Attachment I cannot see where the viewer will let me add the attachment as the current or active document. Can someone help me on this?

' Here is the code that loads the document

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Form5 = Nothing
        Form5.Show()
        Dim filenameX As String
        filenameX = "P:\gdace\MSDS\Yellow Armour Aqua Enamel Sheboygan 1 10.pdf"
        Form5.AxAcroPDF1.LoadFile(filenameX)
    End Sub

Here is the code to send the email I just don't know how to attach the current document.


 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim oOApp As Microsoft.Office.Interop.Outlook.Application
        Dim oOMail As Microsoft.Office.Interop.Outlook.MailItem
        Dim oAddSig As Microsoft.Office.Interop.Outlook.Inspector
        'Create the Application
        oOApp = CreateObject("Outlook.Application")
        oOMail = oOApp.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olMailItem)
        oAddSig = oOMail.GetInspector
        'Send the E-Mail to the Recipient
        With oOMail
            .To = "mbrown"
            .CC = ""
            .Subject = "MSDS Sheet E-Mail Test"
            .Body = "Current MSDS Sheet"
            .Attachments.Add()This is where I am getting stuck
            .Send()
        End With
        Try
        Catch ex As Exception
            MsgBox("Email Sent to the Recipient")
        End Try
        
    End Sub
Edited by kvprajapati because: Added [code] tags. Do wrap your programming code blocks within [code] ... [/code] tags
  • 2 Contributors
  • 1 Reply
  • 448 Views
  • 1 Day Discussion Span
  • Latest Post Latest Post by msrd
Member Avatar for msrd 
Dim strPath As String
        strPath = "Path to PDF File"
        Dim attMent As New System.Net.Mail.Attachment(strPat)



mail.Attachments.Add(attMent)
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.