Add an If then else to this code

T8JGT · Apr 1, 2005

Hi

I am a bit new to all this, so bare with me.

I have this piece of VBA which sends and email in HTML format. What i want to is if ITSQFList has text then add the statement "with the following points to note" after ITSQFQualityGate. If it is empty then there is no statement.

Any suggestions will be greatly appreciated.

CODE GIVEN BELOW.

Private Sub cmdSend_Click()
Dim strEmail, HTML As String
Dim objOutlook As Object
Dim objEmail As Object

Set objOutlook = CreateObject("Outlook.application")
Set objEmail = objOutlook.CreateItem(olMailItem)

strEmail = txtEmail
HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" & NL
HTML = HTML & "<html>"
HTML = HTML & "<body bgcolor=""#FFFFFF"">"
HTML = HTML & ""
HTML = HTML & ITSQFDocumentName & " received from " & ProjectServiceDesigner & _
":" & "" & " '" & ProjectName & "'" & "" & "- PAR " & ProjectPAR & Chr(13) & Chr(13) & " "
HTML = HTML & "Go Live - " & ProjectLiveDate & Chr(13) & " "
HTML = HTML & "" & ProjectSummary & Chr(13) & " "
HTML = HTML & "" & ITSQFServRecommendation & Chr(13)
HTML = HTML & ITSQFQualityGate & Chr(13) & " "
HTML = HTML & ITSQFList & Chr(13) & " "
HTML = HTML & "</body>"
HTML = HTML & "</html>"
objEmail.HTMLBody = HTML

'***creates and sends email
With objEmail
.To = ITSQFEmail
.Subject = "ITSQF Submission"
.HTMLBody = HTML
.Attachments.Add (ITSQFDocumentAddress)
.Send
End With

Set objEmail = Nothing

DoCmd.Close

JerryKlmns · Apr 1, 2005

T8JGT place this after ITSQFQualityGate

Code:

if len(trim(ITSQFList)>0) then 
    HTML = HTML & "with the following points to note" & Chr(13) & "<BR>"
end if

HarleyQuinn · Apr 1, 2005

Try:

Code:

HTML = HTML & ITSQFQualityGate & Chr(13) & "<BR>"
If Not IsNull(ITSQFList) then HTML = HTML & "with the following points to note" & Chr(13
) & "<BR>" 'all on one line
HTML = HTML & ITSQFList & Chr(13) & "<BR> </P>"

Hope this helps

Harleyquinn

---------------------------------
For tsunami relief donations

T8JGT · Apr 1, 2005

Many thanks

All working fine.

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Add an If then else to this code

T8JGT

IS-IT--Management

JerryKlmns

IS-IT--Management

HarleyQuinn

Programmer

T8JGT

IS-IT--Management

Similar threads

Part and Inventory Search

Sponsor