Solved

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

Posted on 2008-10-12
7
3,835 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
ID: 22697955
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
ID: 22697971
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
ID: 22698052
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
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 

Author Comment

by:m0tSiE
ID: 22698495
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
ID: 22698539
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
ID: 22785636
Do post me if you are facing any pblm with this code
0
 

Author Closing Comment

by:m0tSiE
ID: 31505450
Cheers, worked great! :D
0

Featured Post

PeopleSoft Has Never Been Easier

PeopleSoft Adoption Made Smooth & Simple!

On-The-Job Training Is made Intuitive & Easy With WalkMe's On-Screen Guidance Tool.  Claim Your Free WalkMe Account Now

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Most everyone who has done any programming in VB6 knows that you can do something in code like Debug.Print MyVar and that when the program runs from the IDE, the value of MyVar will be displayed in the Immediate Window. Less well known is Debug.Asse…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
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…

726 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