How do I add an Image in my code?
问题 Sub SendBirthdayMessage() Dim olkContacts As Outlook.Items, _ olkContact As Object, _ olkMsg As Outlook.MailItem Set olkContacts = Session.GetDefaultFolder(olFolderContacts).Items For Each olkContact In olkContacts If olkContact.Class = olContact Then If (Month(olkContact.Birthday) = Month(Date)) And (Day(olkContact.Birthday) = Day(Date)) Then Set olkMsg = Application.CreateItem(olMailItem) With olkMsg .Recipients.Add olkContact.Email1Address 'Change the subject as needed' .Subject = "Happy