Menambahkan opsi lampiran ke skrip vba email terjadwal

Saya belajar VBA, tetapi untuk saat ini saya tidak begitu bagus dan saya menemukan makro ini:

Email terjadwal dan berulang di Outlook?

Ia mengirim email berkat janji temu yang dijadwalkan di kalender.

Bisakah seseorang membantu saya menyelesaikannya sehingga memungkinkan untuk memiliki opsi untuk mengirim lampiran juga?

[EDIT] Ini skrip yang saya modifikasi, tetapi masih tidak berfungsi. Bisakah Anda memberi saya indikasi?

    Private Sub Application_Reminder(ByVal Item As Object)
      Dim objMsg As MailItem
      Dim myAttachments As Outlook.Attachments
      Set objMsg = Application.CreateItem(olMailItem)
      Set myAttachments = objMsg.Attachments
    If Item.MessageClass <> "IPM.Appointment" Then
      Exit Sub
    End If

    If Item.Categories <> "Blue Category" Then
      Exit Sub
    End If

      objMsg.To = Item.Location
      objMsg.Subject = Item.Subject
      objMsg.Body = Item.Body
      myAttachments.Add "C:\Test.txt", _
      objMsg.Send

      Set objMsg = Nothing
    End Sub

Saya pikir masalahnya adalah bahwa lampiran didefinisikan sebagai sesuatu yang ditautkan ke Outlook sedangkan MailItem tidak. Makro berfungsi dengan baik sebelum menyisipkan beberapa baris tentang lampiran, sekarang bahkan tidak mengirim surat lagi.

— Nre
sumber

Selamat datang, jadi SU! Kami bukan layanan penulisan skrip. Apa yang sudah Anda dapatkan / coba sejauh ini, dan di mana tepatnya Anda terjebak? Sudahkah Anda memeriksa dengan MSDN? Mungkin dimulai dengan ini: Attachments.Add Method (Outlook)

— Ƭᴇcʜιᴇ007

Terima kasih, saya sudah mencoba menggabungkannya msdn.microsoft.com/en-us/library/office/… , tetapi tidak berhasil karena saya hanya pemula di VBA. (Tidak mengklik tautan Anda, ternyata sama)

— Nre

Oke, karena kami tidak dapat membaca pikiran Anda, harap edit pertanyaan Anda dan poskan kode yang Anda buat dalam upaya untuk menggunakan Lampiran. :) Juga sertakan / jelaskan hasil kode Anda, dan / atau kesalahan run-time yang Anda temui.

— Ƭᴇcʜιᴇ007

Maaf saya tidak memposting skrip, karena saya melakukan (hampir) tidak ada perubahan dan saya kira ini masalah satu baris saya pikir itu tidak relevan. Anda semua melakukan pekerjaan yang baik di sini, maafkan saya jika posting pertama saya tidak dipahami dengan baik.

— Nre

Kamu sangat dekat! Yang perlu Anda lakukan adalah menghapus garis bawah trailing dan koma dari akhir baris

myAttachments.Add "C:\Test.txt", _

Seharusnya begitu

myAttachments.Add "C:\Test.txt"

Saya mencoba kode Anda dengan perubahan itu, dan itu berhasil dengan baik.

— David Pierson
sumber