I would like to add a list of all my Contacts placed in an email:
HTML
Private Sub CommandButton1_Click()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
contacts??
OutMail.HTMLBody = "<html><head>head>"<body<center><table><tr><td align='center">
With OutMail
.To = "[EMAIL="[email protected]"][email protected][/EMAIL]"
.Subject = "Contacts"
For k = 1 to contacts.len
.HTMLBody = .HTMLBody & "," & Contacts(k)??
Next k
.HTMLBody = .HTMLBody & </td></tr></table></center></div></body></html>"
.Display
.Send
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub