Results 1 to 2 of 2
  1. 12-14-2009, 03:04 PM #1
    graviz
    graviz is offline Advanced Beginner
    Windows XP Access 2003
    Join Date
    Sep 2009
    Posts
    48

    Indenting Using htmlbody

    How do you program to indent certain lines in an e-mail? Here is my code:

    Public Function Final()
    Dim OL As Object, MailSendItem As Object
    Dim PComp As String
    Dim CComp As String
    Dim CompAvg As String
    Dim PDTSTC As String
    Dim PDTSNC As String
    Dim CDTSTC As String
    Dim CDTSNC As String

    Set OL = CreateObject("Outlook.Application")
    Set MailSendItem = OL.CreateItem(olMailItem)
    PComp = Nz(DLookup("[Comp%]", "30_Day_Prev_Week"), 0)
    CComp = Nz(DLookup("[Comp%]", "30_Day_Latest_Week"), 0)
    CompAvg = Nz(DLookup("[Comp%]", "30_Day_8_Week"), 0)
    PDTSTC = Nz(DLookup("[DTS]", "DTS_TCSC_Prev_Week"), 0)
    PDTSNC = Nz(DLookup("[DTS]", "DTS_NC_Prev_Week"), 0)
    CDTSTC = Nz(DLookup("[DTS]", "DTS_TCSC_Latest_Week"), 0)
    CDTSNC = Nz(DLookup("[DTS]", "DTS_NC_Latest_Week"), 0)

    With MailSendItem
    .Subject = "Monday Metrics"
    .htmlbody = .htmlbody & "<body><font color=#000000>"
    .htmlbody = .htmlbody & "<p><b>30 Day Completion</b></p>"
    .htmlbody = .htmlbody & "<p>This Week: " & Format(CComp, "Percent") & "</p>"
    .htmlbody = .htmlbody & "<p>Last Week: " & Format(PComp, "Percent") & "</p>"
    .htmlbody = .htmlbody & "<p><br></p>"
    .htmlbody = .htmlbody & "<p><b>DTS</b></p>"
    .htmlbody = .htmlbody & "<p><b>This Week</b></p>"
    .htmlbody = .htmlbody & "<p>NC: " & Format(CDTSNC, "Fixed") & "</p>"
    .htmlbody = .htmlbody & "<p>TCSC: " & Format(CDTSTC, "Fixed") & "</p>"


    .htmlbody = .htmlbody & "<p><b>Last Week</b></p>"
    .htmlbody = .htmlbody & "<p>NC: " & Format(PDTSNC, "Fixed") & "</p>"
    .htmlbody = .htmlbody & "<p>TCSC: " & Format(PDTSTC, "Fixed") & "</p>"
    .htmlbody = .htmlbody & "</font></body>"

    .To = ""
    .CC = ""
    .Importance = 2 ' olImportanceHigh
    .Display
    .Send
    End With
    End Function

    I would like to indent after a title (i.e. .htmlbody = .htmlbody & "<p>This Week: " & Format(CComp, "Percent") & "</p>")
    Reply With Quote Reply With Quote
  2. 12-18-2009, 05:56 PM #2
    ChrisO
    ChrisO is offline Novice
    Windows XP Access 2003
    Join Date
    Aug 2005
    Location
    Brisbane, Australia
    Posts
    27
    After: -

    .Subject = "Monday Metrics"

    try inserting: -

    ' Set body format to HTML
    .BodyFormat = 2
    Reply With Quote Reply With Quote
Please reply to this thread with any new information or opinions.
« Previous Thread | Next Thread »

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Forum Rules

Other Forums: Microsoft Office Forums