Genarate outlook mail by choosing content from combo box

Hi,

I have created an excel file that generate outlook emails ( using Ron de Bruin VB codes)

I have a one more task to do with that.

I have list of contents in a combo box... those contents are short form of the main contents that i want to be in the mail.

if i select an content from the combo box and click mail macro it should open an mail with brief contents corresponding to the short content i selected in combo box.

Please find the attachment for reference.

I would appreciate a quick help.

Thanks for your time...

If you will keep the cursor on short form before running the macro, replace your existing line of .HTMLBody to this one.

.HTMLBody = ActiveCell.Offset(0, 1).Value & RangetoHTML(rng)

If you still want to go with dropdown, may be this one can help.

Hi haripopuri,

Thanks it works well,

I dont need the range to be in body of the mail if chose from dropdown box.

Can it be done...

and kindly let me why this below code is used??

Sub DP()
Debug.Print ActiveSheet.Shapes("Drop Down 6").Name
End Sub

I dont need the range to be in body of the mail if chose from dropdown box.

Can it be done...

Don't quite get it. For the other part, you can delete this line. That line puts the name of the box in immediate window. Was for my reference

Haripopuri,

In my excel what i tried is macro will generate a new outlook mail with the specified range of cells in that excel as the body of the mail.

My need is, in generating mail from combo box.. only the description of combobox should come in body of the mail... not that cell ranges.

i think now im clear in my need. Thanks.

You don't want the cells in excel body. Everything else should be same.. is that correct? If yes, then just remove RangetoHTML(rng) in this line of the code.

.HTMLBody = MyStr & RangetoHTML(rng)

Hi Hari,

Thanks. will try and come back to you...

It would be a great help if you clarify me in below...

I have query in where to place the below codes in the code what i have.

All below codes are from ron de bruine

To have few lines before the range of cells in body of the mail. please tell me where i need to paste this variable declaring and strbody codes.

Dim strbody As String
    strbody = "Hi there" & vbNewLine & vbNewLine & _
              "This is line 1" & vbNewLine & _
              "This is line 2" & vbNewLine & _
              "This is line 3" & vbNewLine & _
              "This is line 4"

I want my signature to be shown in the macro i run, for this please tell me where do ineed to paste this below codes, or is this codes to be put in a seperate module.

Sub Mail_Outlook_With_Signature_Html_1()
' Working in Office 2000-2013
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    strbody = "<H3><B>Dear Customer Ron de Bruin</B></H3>" & _
              "Please visit this website to download the new version.<br>" & _
              "Let me know if you have problems.<br>" & _
              "<A HREF=""http://www.rondebruin.nl/tips.htm"">Ron's Excel Page</A>" & _
              "<br><br><B>Thank you</B>"

    On Error Resume Next

    With OutMail
        .Display
        .To = "[email protected]"
        .CC = ""
        .BCC = ""
        .Subject = "This is the Subject line"
        .HTMLBody = strbody & "<br>" & .HTMLBody
        .Send
    End With

    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

bmbalamurali, stick to one question for a thread. You are keeping on expanding your requirement. Put all your questions in one go and that will save our time too.

Hari,
Sorry... will try the last answer you gave and if it works.. i will make this thread resolved. Thanks.

Will get my doubhts clarified through another thread in one go.

Thanks for your time and consideration.

Hi Hari,

Thanks....

Is it possible to change the font and its size of the content what macro is generating in mail....????

Please help...