MS Access - email s prílohami cez Outlook

"Rady nielen z Porady" - Tipy a triky, "how-to ...", nápady a riešenia k aplikáciam MS Office
pre všetky verzie až po MS Office 2010

MS Access - email s prílohami cez Outlook

Poslaťod Milan25 » 27.03.2016, 11:11

Zdravím, používam MS Access 2007 a chcel by som poslať z formulára automaticky email prostredníctvom MS Outlook 2007 s viacerými prílohami, prípadne z vybraného adresára vložiť všetky prílohy pdf do emailu.
Funguje mi len sendobject, avšak tam nie je možnosť pridať viacero príloh, aktuálne používam tento kód, avšak Outlook nereaguje a nevyvolá okno.
Viete mi niekto poradiť, či je v zápise chyba alebo iný funkčný kód (referencie mám zapnuté tiež na MS Outlook vo VBA):

Private Sub Email_Click()

Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)

Dim strPath As String
Dim strFilter As String
Dim strFile As String

On Error GoTo Err_Send

strPath = "C:\dokumenty\"
strFilter = "*.pdf"
strFile = Dir(strPath & strFilter)

If strFile <> "" Then

With MailOutLook
.BodyFormat = olFormatRichText
.To = Nz(Me.E_mail, Null)
.cc = Null
.bcc = Null
.Subject = "test"
.HTMLBody = Null
.Attachments.Add (strPath & strFile)
.Send
End With

Else
MsgBox "No file matching " & strPath & strFilter & " found." & vbCrLf & _
"Processing terminated."
Exit Sub

End If

Err_Send:
If Err.Number = 2501 Then
MsgBox "Zaslanie E-mailu zrušené používateľom", vbInformation, "INFO"
End If

end sub
Milan25
 
Príspevky: 54
Registrovaný: 30.07.2010, 10:28
Udelené poďakovania: 2 krát
Prijaté poďakovania: 0 krát

Späť na Word, Excel, PowerPoint, Outlook, Access

Kto je on-line

Užívatelia prezerajúci fórum: Žiadny registrovaný užívateľ nie je prítomný a 3 hostia

cron