MS Access 2010: 1 ID = 1 = 1 ()
|
|
, 12 2016 . 12:25
+
!
MS Access 2010:
:
c ID ( , MS Outlook )
:
VBA ID :
:
ID = 1 = 1 ()
:
With rsEmail
.MoveFirst
Do Until rsEmail.EOF
If IsNull(.Fields(14)) = False Then
sToName = Left(.Fields(14), 7)
sSubject = "Ticket #: " & .Fields(1)
sMessageBody = ""
MailOutLook.SentOnBehalfOfName = ""
DoCmd.SendObject acSendNoObject, , , _
sToName, , , sSubject, sMessageBody, False, False
End If
.MoveNext
Loop
End With
????
!
http://www.sql.ru/forum/1209533/rassylka-pisem-iz-ms-access-2010-1-id-kontrakta-1-pismo-1-uchastnik-poluchatel