Это мой первый вопрос на этом сайте, так что если че не так , не обесудьте..
Тема значт такая, меется определеная СУБД со связями как в привязаном файле.
Есть форма, через которую заносятся даные в таблицу tblOrders. В той же форме есть кнопка "send" которая должна отсылать message человеку чье "мыло" в таблице tblPersons.
Tepeрь собствено i сам вопрос, как это "мыло" принести в MailOutLook.
А вот и код.
| автор |
Private Sub btnSend_Click()
Dim mess_body As String
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
mess_body = "Dear " & PersonID & "," & vbCrLf & vbCrLf
With MailOutLook
.To = PersonID ' <-- сюда
.Subject = "Order Accepted"
.Display
End With
End Sub
|