Poniżej najprostszy kod VBA w Access do wysyłania mailingu. Za jego pomocą wyślemy maila poprzez swoje główne konto pocztowe. Konto pocztowe musi być wcześniej prawidłowo skonfigurowane:
Sub MailByAccess() PID = Shell("outlook.exe", vbNormalFocus) 'tym kodem uruchamiamy Outlooka Dim omsoutlook As Object Dim oemail As Object Dim blnRet As Boolean Set omsoutlook = CreateObject("Outlook.Application") Set oemail = omsoutlook.createitem(olmailitem) With oemail .To = "tomasz.kenig@xxx.pl" 'wpisujemy odbiorcę .subject = "Temat" ' wpisujemy temat emaila .body = "Tresc E-maila" 'wpisujemy treść emaila .send End With Set omsoutlook = Nothing Set oemail = Nothing 'PID = Shell("D:\refresh_outlook.cmd", vbNormalFocus) End Sub