how to modify the code below to send more than one on eamil using outlook,
send code:
Private Sub btnSend_Click()
Dim oApp As New Outlook.Application
Dim oEmail As Outlook.MailItem
Set oEmail = oApp.CreateItem(olMailItem)
oEmail.To = Me.txtTo
oEmail.Subject = Me.txtSubject
oEmail.Body = Me.txtBody
If Len(Me.txtAttachment) > 0 Then
oEmail.Attachments.Add Me.txtAttachment.Value
End If
With oEmail
' If Not IsNull(.To) And Not IsNull(.Subject) And Not IsNull(.Body) Then
.Display
MsgBox "Email Sent!"
' Else
' MsgBox "Please fill out the required fields."
'End If
End With
oEmail
End Sub
Code:End Sub