Hi All,
I am trying to change the text format in the body of the generated email but without succes. Thought about using .HTMLBody = "<HTML><B>Report
from today.</B></HTML>" as I want to have this text only in bold but no result. Any suggestion what to change in the logic see command below?
Private Sub Command23_Click()
Dim day As Integer
day = Weekday(Date, vbSunday)
Dim olApp As Outlook.Application
Dim toMulti As String
Dim mItem As Outlook.MailItem ' An Outlook Mail item
Set olApp = CreateObject("Outlook.Application")
Set mItem = olApp.CreateItem(olMailItem)
Dim rs As Recordset
With mItem
Set rs = CurrentDb.OpenRecordset("Count names with No products contact name")
If rs.RecordCount > 0 Then
rs.MoveFirst
.BodyFormat = olFormatHTML
Do Until rs.EOF
toMulti = toMulti & rs![email carrier manager] & ";"
rs.MoveNext
Loop
Else
MsgBox "No email address!"
End If
.To = toMulti
.CC = ""
.Subject = "Providers with No active products today date - (" & WeekdayName(day) & " - " & Date & ")"
.Body = "Hi All," & vbCrLf & _
vbCrLf & "Report from today." & _
vbCrLf & "" & vbCrLf & _
vbCrLf & "Regards," & vbCrLf & _
vbCrLf & "John"
.Display
.Attachments.Add ("C:\Users\John.peacock\Documents\Template_missing products.xlsx")
End With
Exit Sub
End Sub
Anri
