With send1
para = "dear super"
para = para + "<html><head><font size=5><b><center>ZHIXING</b></font>" & _
"<br><b>.O.D Reports</b></center>" & _
"<br><h5 align=right>rint date:" & Date & "</h5>" & _
"<br><body>" & For i = 0 To .RecordCount - 1 & "</body>" & _
"</head></html>"
End With
send1.Close
Set newmail = olkapp.CreateItem(olMailItem)
With newmail
.To = ""
.Subject = "abc"
.BodyFormat = olFormatHTML
.HTMLBody = para
.send
End With
End Function
在"<br><body>" & For i = 0 To .RecordCount - 1 & "</body>" & _ 地方报错,怎么改