-Ïîèñê ïî äíåâíèêó

Ïîèñê ñîîáùåíèé â rss_sql_ru_access_programming

 -Ïîäïèñêà ïî e-mail

 

 -Ïîñòîÿííûå ÷èòàòåëè

 -Ñòàòèñòèêà

Ñòàòèñòèêà LiveInternet.ru: ïîêàçàíî êîëè÷åñòâî õèòîâ è ïîñåòèòåëåé
Ñîçäàí: 16.03.2006
Çàïèñåé:
Êîììåíòàðèåâ:
Íàïèñàíî: 4


ðàññûëêà ïèñåì èç 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


 

Äîáàâèòü êîììåíòàðèé:
Òåêñò êîììåíòàðèÿ: ñìàéëèêè

Ïðîâåðêà îðôîãðàôèè: (íàéòè îøèáêè)

Ïðèêðåïèòü êàðòèíêó:

 Ïåðåâîäèòü URL â ññûëêó
 Ïîäïèñàòüñÿ íà êîììåíòàðèè
 Ïîäïèñàòü êàðòèíêó