PC-HELP.CZ

Dobrý den, mám naprogramovanou app v Accesu přes VBA. Mělo by to odesílat e-mail, bohužel to tak funguje pouze pod 2003. Potřeboval bych to rozchodit i na 2007/2010 verzi Accesu. Problém je s appOutlook nemá s tím někdo taky zkušenosti?

kód

Kód: Vybrat vše

Option Compare Database


Private Sub Command20_Click()

        Dim mess_body As String
        Dim appOutLook As Outlook.Application
        Dim MailOutLook As Outlook.MailItem
        Set appOutLook = CreateObject("Outlook.Application")
        Set MailOutLook = appOutLook.CreateItem(olMailItem)
            
            Set appOutLook = CreateObject("Outlook.Application")
            Set MailOutLook = appOutLook.CreateItem(olMailItem)
            With MailOutLook
            .BodyFormat = olFormatRichText
            .To = Me.Email_Address
            .Subject = Me.Mess_Subject
            .HTMLBody = Me.Mess_Text
            If Left(Me.Mail_Attachment_Path, 1) <> "<" Then
                .Attachments.Add (Me.Mail_Attachment_Path)
            End If
            '.DeleteAfterSubmit = True   'This would let Outlook send th note without storing it in your sent bin
            .Send
            End With
            'MsgBox MailOutLook.Body
            Exit Sub
email_error:
            MsgBox "An error was encountered." & vbCrLf & "The error message is: " & Err.Description
            Resume Error_out
Error_out:
End Sub

--- Doplnění předchozího příspěvku (28 Črc 2011 15:03) ---

......
Set appOutLook = CreateObject("Outlook.Application")
!Set MailOutLook = appOutLook.CreateItem(olMailItem)

Set appOutLook = CreateObject("Outlook.Application")

--- Doplnění předchozího příspěvku (28 Črc 2011 15:04) ---

......
Set appOutLook = CreateObject("Outlook.Application")
'Set MailOutLook = appOutLook.CreateItem(olMailItem)

Set appOutLook = CreateObject("Outlook.Application")
.....
stačí "odstranit Set mailOutlook

PC-HELP.CZ

Acces VBA - poslat e-mail

Acces VBA - poslat e-mail Vyřešeno