Sub sendamail()
Dim str As String
Dim olkApp As Object
str = InputBox("Identify any extra recipients", "Recipient Entry")
Set olkApp = CreateObject("outlook.application")
With olkApp.CreateItem(0)
.Subject = "My Subject"
.Body = "Mail Body" & vbCrLf & vbCrLf & "And it all starts here"
.To = "fred@fred.com, doris@doris.com"
If str <> "" Then .To = .To & "," & str
.Display
End With
End Sub
He's got all the Outlook code examples you'll ever need.
HTH,