Dobut in sending mail thru VBA

[gopdeep]

pls have a luk on below code

Private Sub CommandButton1_Click()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim rng As Range
    Dim str As String, str1 As String
    Dim in1 As String, in2 As String
    in1 = InputBox("Range1:")
    in2 = InputBox("Range2:")
    Set rng = Sheets("sheet1").Range(in1 & ":" & in2).SpecialCells(xlCellTypeVisible)
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
    strbody = ActiveSheet.Range(in1 & ":" & in2).Select
    str = "<font face='Trebuchet MS' size=2 color=blue >" & "Hi All," & "<br><br>" & "Good Morning !!!" & "<br><br>" & "Please find today's allocation below:" & "<br><br>" & "</font>"
    str1 = "<font face='Trebuchet MS' size=2 color=blue >" & "Thanks," & "<br>" & "GopDeep" & "</font>"
    On Error Resume Next
        With OutMail
        .To = "gopdeep@aaa.com"
        .CC = "gopdeep1@aaa.com"
        .BCC = ""
        .Subject = "Sample" & Chr(32) & Range("H4") & " Mail it is"
        .HTMLBody = str & RangetoHTML(rng) & "<br><br>" & str1
        .Display
        .ReadReceiptRequested = True
    End With
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

above code is working fine, but in mail body table is not appearing properly.

that is last row of the table is not having line in it... i couldn't resolve it even after many try... pls me

 

[gopdeep]

can any expert help us here...???

 

[gopdeep]

can any expert help us here ???

 

[Andrew Poulsom]

Your code worked for me (with Ron de Bruin's RangetoHTML function). Make sure that the last row in the selected range has a bottom border rather than the row below having a top border.

 

[gopdeep]

here is the issue which am getting...

http://www.4shared.com/photo/j4U6WP4g/issue.html

 

[Andrew Poulsom]

I don't see the text from str1 in that image. Did you check for a bottom border on the last line?

 

[gopdeep]

yeap... bottom line is there... you can see through below link...


http://www.4shared.com/photo/n4qK7cJz/sheet.html

http://www.4shared.com/photo/rgbMyEZq/mail.html

 

[Andrew Poulsom]

It works for me if row 17 has a double bottom border, but not if there's a double top border in the row below. Try removing (what appears to be) the bottom border and adding it again.

 

[gopdeep]

its not working to me... borders lines table whatever it is... everything perfect only... no double line at bottom or top...

can you share me your document to have a look...

 

[gopdeep]

plsss have a luk... my document doesn't have double line and all...

http://www.4shared.com/photo/d-MLoptE/my_document.html


i couldn't understand that why the hell my coding is not working to me... pls help me

 

[gopdeep]

is any expert from BOARD can help me