Привет всем!

Решаю следующую задачу на 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

можно ли это вообще осуществить????

Спасибо за любые комменты!

Спасибо за ответ, NBjHCBrc6KlSObm!

Пока не гуглила про blat-ом +stunnel, CDOSYS библиотеку....

хочу сразу уточнить ответ на мой вопрос "Возможно ли это вообще осуществить, используя только VBA код в MS Access и MS Outlook????"

P.S. ... только лицензированные программки можно ставить

Спасибо!!!

Спасибо, NBjHCBrc6KlSObm.

Вот сама все таки сделала:


Function SendEmail()
' on Error GoTo Exit_Function
Dim oOutlook As Outlook.Application
Dim oEmailItem As Outlook.MailItem

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("Table Name")
If rs.RecordCount > 0 Then
rs.MoveFirst
Do Until rs.EOF
If IsNull(rs![Name of Column1]) Then
rs.MoveNext
Else
If oOutlook Is Nothing Then
Set oOutlook = New Outlook.Application
End If
Set oEmailItem = oOutlook.CreateItem(olMailItem)
With oEmailItem

.To = Left(rs![Name of Column1], 7)
.cc = "email_cc@dgfgg.com"
.BodyFormat = olFormatHTML
.Subject = "Ticket #: " & rs![Name of Column2]
.HTMLBody = "text"
MailOutLook.SentOnBehalfOfName = "email_from@dgfgg.com"
.Display
'.Send
End With
Set oEmailItem = Nothing
Set oOutlook = Nothing
rs.MoveNext
End If
Loop
Else
'do nothing
End If
End Function