locked
עזרה בשליחת דואר דרך דרך אקסס 2013 חלונות 8.1 RRS feed

  • שאלה

  • שלום לחברי הקהילה (:

    לפני כעשור כתבו לי תוכנה באקסס 2003 ששולחת דוחות (קבצים שנמצאים במחיצה במחשב שלי). הקוד נכתב לאווטלוק אקספרס ולא למיקרוסופט אווטלוק. לפני מספר ימים שידרגתי את האופיס לחדש 2013 והקוד אינו עובד היום.. יש לי הודעת שגיאה שמספרה 30000 ונרשם לי כי לא ניתן להעלות mapi.dll. אני מצרפת את הקוד למטה.

    אשמח אם מישהו יעזור לי לתקן את הקוד למיקרוסופט אווטלוק.

    תודה מראש (:

    להלן הקוד:

    Private Sub Command64_Click()
    Dim stAppName As String
    Dim db As Database
    Dim rec As Recordset

    Dim i As Integer, a As Integer
    Set db = CurrentDb()
    Set rec = db.OpenRecordset("select * from askr where exclusive =1")
    Do While Not rec.EOF
       rec.Edit
       rec![exclusive] = -1
       rec.update
       rec.MoveNext
    Loop
    rec.Close
    db.Close
    '  stappname = Application.CurrentProject.Path & "\ask_sendMail.exe"
    '   Call Shell(stappname, 1)
    '   DoCmd.Quit

    mailSubject = "עבודה"
    Set db = CurrentDb()
    Set rec = db.OpenRecordset("select * from mail where send = true")

    Do While Not rec.EOF
      i = i + 1
       mailTo = rec![mail]
       mailFile = rec![serial]
       ReDim Preserve mm(i)
       ReDim Preserve ms(i)
       Call SendMail(i)
       rec.MoveNext
    Loop
     
     For a = 1 To i
     
        mm(a).MAPIM.Send
       ms(a).MAPIS.SignOff
    Next a
    rec.Close

       Set rec = db.OpenRecordset("mail")


    Do While Not rec.EOF
     Kill Application.CurrentProject.Path & "\mail\" & rec![serial] & ".html"
       rec.Delete
       rec.MoveNext
     Loop
       For Each c In Me.Controls 'שיחרור כל הפקדים מהזיכרון
           Set c = Nothing
       Next c
       
    Erase mm
    Erase ms
    db.Close

    MsgBox "השליחה התבצעה בהצלחה"


    End Sub






    Private Sub Command5_Click()
    Call Form_Unload(1)
    End
    End Sub



    Private Sub SendMail(i As Integer) 'פונקציה שאחראית על שליחת המייל


           ms(i).MAPIS.SignOn

           mailBody = "מצורף קובץ דוח"


               With mm(i).MAPIM

                   .SessionID = ms(i).MAPIS.SessionID
                   .Compose

                   .MsgSubject = mailSubject
                   .RecipIndex = 0
                   .RecipAddress = mailTo

                    .MsgNoteText = mailBody

                   'ניתן לצרף קובץ למייל
                       .AttachmentIndex = 0
                      .AttachmentPosition = 0
                       .AttachmentPathName = "c:\work\mail\" & mailFile & ".html"
                 'ניתן לשנות לקובץ המצורף את השם
                       .AttachmentName = "דוחחדש.html"
                       .ResolveName
                      '.Send



               End With




                      'MAPIS.SignOff
          
           
         
           
    End Sub
    &
    יום ראשון 17 נובמבר 2013 11:23