Excel VBA - Kirim email berdasarkan perubahan tidak langsung dalam sel, dengan lampiran dan referensi sel dalam teks email
By Ryan4 pada hari Rabu, 29 Juni 2022
Posted in Excel
Balasan 13
"Like" 0
views 5.6K
Suara 0
Halo,

Saya mencoba mengirim email berdasarkan perubahan nilai sel tidak langsung (misalnya > 7), dengan lampiran email dan referensi sel tertentu ke sel yang diubah di badan surat keluar saya. Saya menurunkan nilai sel tidak langsung berdasarkan kriteria. Namun saya mendapatkan kesalahan 424 ketika mencoba mengatur variabel untuk memanggil alamat sel ke email saya. Bisakah Anda membantu? Saya merasa saya dekat.

Redupkan xRg Sebagai Rentang
Redupkan xRgSel Sebagai Rentang
'Tetapkan jangkauan & target
Sub Lembar Kerja Pribadi_Rubah (Rentang Target As ByVal)
Redupkan xRgPre Sebagai Rentang
On Error Resume Next
Jika Target.Cells.Count > 1 Kemudian Keluar Sub
Tetapkan xRg = Rentang("Q2:Q43")
Tetapkan xRgPre = xRg.Preseden
Tetapkan xRgSel = Intersect(Target, xRg)
ActiveWorkbook.Simpan
Jika xRg.Value > 7 Maka
Hubungi Mail_small_Text_Outlook
ElseIf (Bukan xRgPre Bukan Apa-apa) Dan (Intersect(Target, xRgPre).Address = Target.Adress) Lalu
End If
End If
End Sub
SubMail_small_Text_Outlook()
Redupkan xOutApp Sebagai Objek
Redupkan xOutMail Sebagai Objek
Redupkan xMailBody Sebagai String
Setel xOutApp = CreateObject("Outlook.Application")
Setel xOutMail = xOutApp.CreateItem(0)
xMailBody = "Halo, sel" & xRgSel.Address(False, False) & _
" di lembar kerja '" & Me.Name & "' sudah 3 hari melewati asupan" & vbNewLine & vbNewLine & _
"Silakan tinjau dan hubungi prospek" & vbNewLine & _
"Terima kasih"
On Error Resume Next
Dengan xOutMail
.Ke = "rdavis@bridge.partners"
.CC = ""
.BCC = ""
.Subjek = "Hari sejak asupan timbal"
.Body = xMailBody
.Attachments.Add (Buku Kerja Ini.Nama Lengkap)
.Tampilkan 'atau .Kirim
Berakhir dengan
Pada Kesalahan GoTo 0
Setel xOutMail = Tidak Ada
Setel xOutApp = Tidak Ada
End Sub


Terima kasih!
Halo,

Ketika Anda mendapatkan kesalahan 424, silakan klik debug, lalu ambil tangkapan layar dari masalah yang ada.
debug.png


Kami menjalankan kode yang Anda berikan, itu berfungsi dengan baik setelah kami mengubah berakhir jika di bawah untuk keluar sub.
ubah.jpg


Silakan ubah kode Anda, lalu coba untuk melihat apakah itu berfungsi seperti yang Anda inginkan.

Amanda
Amanda Lee
·
1 tahun lalu
·
0 Suka
·
0 Voting
·
0 Komentar
·
Terima kasih, Amanda! Namun saya masih mendapatkan kesalahan, dan Prompt tidak memberikan opsi "debug". Saya cukup baru di VBA, mungkinkah indentasi saya? Melihat itu bekerja di pihak Anda. Saya sudah mencoba mengunggah tangkapan layar tetapi mengalami kesulitan untuk mengirim pesan balasan saya (memuat untuk jangka waktu yang lama, hanya peringatan).
Ryan4
·
1 tahun lalu
·
0 Suka
·
0 Voting
·
0 Komentar
·
Hai Ryan, apakah Anda hanya mengubah coretan? berakhir jika untuk keluar sub? (Saya mencatat bahwa ada kesalahan ketik (eixt) di tangkapan layar, maaf untuk itu.)
Jika ya, bisakah Anda melampirkan file Excel tempat Anda menerapkan kode?

Amanda
Amanda Lee
·
1 tahun lalu
·
0 Suka
·
0 Voting
·
0 Komentar
·
Dikutip dari Ryan4 pada Kamis, 30 Juni 2022
Terima kasih, Amanda! Namun saya masih mendapatkan kesalahan, dan Prompt tidak memberikan opsi "debug". Saya cukup baru di VBA, mungkinkah indentasi saya? Melihat itu bekerja di pihak Anda. Saya sudah mencoba mengunggah tangkapan layar tetapi mengalami kesulitan untuk mengirim pesan balasan saya (memuat untuk jangka waktu yang lama, hanya peringatan).


Anda dapat mencoba mempostingnya dengan lampiran sekarang.
penggemar excel
·
1 tahun lalu
·
0 Suka
·
0 Voting
·
0 Komentar
·
Hai Amanda, maaf atas keterlambatannya, saya memang mengubah End jika ke Exit Sub. Tetapi saya tidak dapat menambahkan file excel atau tangkapan layar karena alasan tertentu - saya tidak dapat membalas dengan lampiran. Saya tidak dapat menambahkan file excel karena ini adalah file xlsm dan itu tidak didukung untuk pengunggahan file. Bisakah kita mengobrol melalui email? ryandavis1225@gmail.com
Ryan4
·
1 tahun lalu
·
0 Suka
·
0 Voting
·
0 Komentar
·
Hai Amanda dan ExcelFan, maaf atas keterlambatannya, saya memang mengubah End jika menjadi Exit Sub. Tetapi saya masih tidak dapat menambahkan file excel atau tangkapan layar karena beberapa alasan - saya tidak dapat membalas dengan lampiran. Saya tidak dapat menambahkan file excel karena ini adalah file xlsm dan itu tidak didukung untuk pengunggahan file. Lagi pula kita bisa mengobrol melalui email? Dengan begitu saya bisa meneruskan file
Ryan4
·
1 tahun lalu
·
0 Suka
·
0 Voting
·
0 Komentar
·
Dikutip dari Ryan4 pada hari Kamis, 07 Juli 2022
Hai Amanda, maaf atas keterlambatannya, saya memang mengubah End jika ke Exit Sub. Tetapi saya tidak dapat menambahkan file excel atau tangkapan layar karena alasan tertentu - saya tidak dapat membalas dengan lampiran. Saya tidak dapat menambahkan file excel karena ini adalah file xlsm dan itu tidak didukung untuk pengunggahan file. Bisakah kita mengobrol melalui email? ryandavis1225@gmail.com


Halo,

Mengapa tidak menyimpannya sebagai zip atau rar?
penggemar excel
·
1 tahun lalu
·
0 Suka
·
0 Voting
·
0 Komentar
·
Sayangnya, saya tidak dapat memposting jenis file apa pun, atau tautan. Saya telah menghubungi untuk mendukung tetapi sekarang menjawab belum. Tidak yakin penyebabnya tetapi setelah mengirim halaman hanya memuat dan tidak mengirim. Telah mencoba beberapa browser, membersihkan cache saya, dan beberapa perangkat :/

Saya menghargai kesediaan Anda untuk membantu! Sayangnya saya tidak dapat mengirimkan file saat ini
Ryan4
·
1 tahun lalu
·
0 Suka
·
0 Voting
·
0 Komentar
·
Hai Ryan,

Terima kasih untuk umpan baliknya. Kami akan memeriksa apakah ada masalah tentang lampiran file. Untuk saat ini, silakan kirim file Anda ke amanda@extendoffice.com

Amanda
Amanda Lee
·
1 tahun lalu
·
0 Suka
·
0 Voting
·
0 Komentar
·
Halo Amanda!

Ini Ryan4 dari ExtendOffice. Terima kasih telah mengirimkan alamat email Anda untuk membantu memecahkan masalah saya, saya berniat untuk menjadi anggota aktif sejak menemukan komunitas Anda yang luar biasa, jadi saya berharap masalah pengunggahan file saya dapat diselesaikan pada akhirnya!

Untuk saat ini, silakan lihat file terlampir di sini. Saya memang memperbarui kode untuk membaca "Keluar Sub" alih-alih "Akhiri jika," namun saya masih menerima kesalahan tanpa opsi debug. Bisakah Anda memberi saran? Mungkin itu adalah struktur atau indentasi saya.

Terima kasih lagi atas bantuan Anda!
Ryan

Hai Ryan,

Email yang dikirim diterima. Karena mungkin ada pengguna lain yang memiliki masalah yang sama, saya akan menjawab di sini.

Silakan coba cara di bawah ini:
1. Buka Referensi.
vba-referensi.png


2. Memeriksa Perpustakaan Objek Microsoft Outlook 16.0. Catatan: Alih-alih 16.0, Anda mungkin memiliki 15.0, 14.0, dll.
perpustakaan vba.png


3. Ganti kode di bawah ini
Dim xOutApp As Object

Dim xOutMail As Object

untuk
Dim xOutApp As Outlook.Application

Dim xOutMail As Outlook.MailItem


Silakan coba 3 langkah di atas. Karena vba Anda berfungsi dengan baik di komputer kami, jadi sulit bagi kami untuk mereproduksi masalahnya. Semoga metode ini akan membantu Anda!

Amanda
Amanda Lee
·
1 tahun lalu
·
0 Suka
·
0 Voting
·
0 Komentar
·
Hai Amanda, Saya memiliki Perpustakaan Objek Microsoft Outlook 16.0 tetapi sayangnya ini juga tidak berhasil - saya memiliki kesalahan baru yang menunjuk ke kode masalah. Tampaknya Outlook.Application bukan tipe yang ditentukan - apakah saya perlu membuat beberapa pengikatan awal untuk memenuhi syarat objek?

Terima kasih!

(ps sekali lagi saya tidak dapat mengirim tangkapan layar / lampiran - akan dikirim melalui email tetapi jangan ragu untuk memposting di sini juga untuk komunitas.)
Ryan4
·
1 tahun lalu
·
0 Suka
·
0 Voting
·
0 Komentar
·
Hai Ryan,

Pesan diterima. Tapi maaf karena kodenya berfungsi di komputer kami, jadi kami tidak bisa memikirkan solusi lain untuk Anda sekarang.

Tentang tangkapan layar, apakah Anda mengklik Unggah berkas bawah lampiran kotak dan kemudian pilih file yang didukung oleh forum?

Amanda
Amanda Lee
·
1 tahun lalu
·
0 Suka
·
0 Voting
·
0 Komentar
·
Bummer :/ Saya ingin tahu apa itu - saya akan mencoba bermain-main dengannya lagi.

Tentang file, saya memang mencobanya. Saya mengunggah dengan baik tetapi setelah memeriksa saya bukan robot dan menekan balasan. Halaman hanya memuat dan memuat, tetapi tidak pernah terkirim. Saya dapat membalas dengan baik tanpa lampiran. Amanda, saya email Anda lampiran dan buku.

Akan memberi tahu Anda semua jika saya menyelesaikan ini!
Terima kasih atas semua bantuannya

Ryan
Ryan4
·
1 tahun lalu
·
0 Suka
·
0 Voting
·
0 Komentar
·
Lihat Posting Lengkap