ðàññûëêà ïèñåì èç 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
-
Çàïèñü ïîíðàâèëàñü
-
0
Ïðîöèòèðîâàëè
-
0
Ñîõðàíèëè
-