Solved

Send Email via VB.Net, using an Outlook Template? (.Msg)

Posted on 2008-10-12
7
3,767 Views
Last Modified: 2012-05-05
Hi,

I'm looking to send an email template with some variables filled from VB.Net via Outlook.

I was originally going to send an html email in outlook, however the email I am going to send must contain a company logo. Therefore I have a template (.msg file) that I want to send containing the text from 3 text boxes on my form.

The text boxes are:

RequestNo
Site
Message

Can anyone show me how to send my template and have these variables filled in on the form?

Thanks,

Paul.
0
Comment
Question by:m0tSiE
  • 4
  • 3
7 Comments
 
LVL 13

Expert Comment

by:TechTiger007
Comment Utility
For using outlook to sent mail you can refer this
http://www.experts-exchange.com/Programming/Languages/Visual_Basic/Q_23807698.html

Not sure if you can use a template from outlook
0
 

Author Comment

by:m0tSiE
Comment Utility
Thanks Tiger, that's the previous question I asked, unfortunetly i'm going to have to show an image on the template.

Is it possible to attach an image and display it using html?
0
 
LVL 13

Expert Comment

by:TechTiger007
Comment Utility
Oops sorry about that Didnt see that it was you again :-)

If the image is hosted in a web site then you can use an img tag in your mail body and give href as the URL of the image

If you need to attach the image in mail body...... Did some googling for you and here it is
http://dotnetdud.blogspot.com/2008/05/create-html-message-with-embedded.html

Hope that is what you are looking for
0
Maximize Your Threat Intelligence Reporting

Reporting is one of the most important and least talked about aspects of a world-class threat intelligence program. Here’s how to do it right.

 

Author Comment

by:m0tSiE
Comment Utility
Thanks Tiger, i've put together the following code but i'm still having problems.

At the minute, the email shows a broken image, which has the url cid:Img1.
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        OutApp = CreateObject("Outlook.Application")

        OutApp.Session.Logon()

        OutMail = OutApp.CreateItem(0)
 

        Dim img1 As Net.Mail.LinkedResource = New Net.Mail.LinkedResource("c:\temp\candice2.jpg", Net.Mime.MediaTypeNames.Image.Jpeg)
 

        img1.ContentId = "Img1"
 

        strbody = "<html><body><font color='red'>TEXT</font></b><br><br><img src='cid:" + img1.ContentId + "'></body></html>" & _

                  "Dear all," & vbNewLine & vbNewLine & _

                  "This is a test email." & vbNewLine & _

                  "" & vbNewLine & _

                  "" & vbNewLine & _

                  "Thanks and regards," & _

                  "" & vbNewLine & _

                  "Paul"

    End Sub

Open in new window

0
 
LVL 13

Accepted Solution

by:
TechTiger007 earned 500 total points
Comment Utility
Seems like you havent created AlternativeView for HTML body of your message. Try this I have not tested

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        OutApp = CreateObject("Outlook.Application")
        OutApp.Session.Logon()
        OutMail = OutApp.CreateItem(0)
 
Dim avHTMLBody As AlternateView

        Dim img1 As Net.Mail.LinkedResource = New Net.Mail.LinkedResource("c:\temp\candice2.jpg", Net.Mime.MediaTypeNames.Image.Jpeg)
 
        img1.ContentId = "Img1"
 
        strbody = "<html><body><font color='red'>TEXT</font></b><br><br><img src='cid:" + img1.ContentId + "'></body></html>" & _
                  "Dear all," & vbNewLine & vbNewLine & _
                  "This is a test email." & vbNewLine & _
                  "" & vbNewLine & _
                  "" & vbNewLine & _
                  "Thanks and regards," & _
                  "" & vbNewLine & _
                  "Paul"

avHTMLBody = AlternateView.CreateAlternateViewFromString(strbody, Nothing, MediaTypeNames.Text.Html)

avHTMLBody.LinkedResources.Add(img1)

oMailMsg.AlternateViews.Add(avHTMLBody)
    End Sub
0
 
LVL 13

Expert Comment

by:TechTiger007
Comment Utility
Do post me if you are facing any pblm with this code
0
 

Author Closing Comment

by:m0tSiE
Comment Utility
Cheers, worked great! :D
0

Featured Post

How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

Join & Write a Comment

If you have ever used Microsoft Word then you know that it has a good spell checker and it may have occurred to you that the ability to check spelling might be a nice piece of functionality to add to certain applications of yours. Well the code that…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

743 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now