Public Type eMailInfo
sTo(6) As String
Subject As String
Message As String
End Type
Public eMail As eMailInfo
Public Sub SendMailMessage()
Dim olApp As Object, olItem As Object, i As Integer, sCCList As String
Set olApp = CreateObject("Outlook.Application")
Set olItem = olApp.CreateItem(olMailItem)
i = 0
Do While (Len(eMail.sTo(i))) > 0
olItem.Recipients.Add eMail.sTo(i)
i = i + 1
Loop
olItem.Subject = eMail.Subject
olItem.Body = eMail.Message
olItem.DeleteAfterSubmit = True
olItem.OriginatorDeliveryReportRequested = False
olItem.ReadReceiptRequested = False
olItem.Send
For i = 0 To 5: eMail.sTo(i) = "": Next i 'clear list of addresses
End Sub