Rabu, 29 Juni 2022
  13 Balasan
  5.2K Kunjungan
0
Suara
membuka
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
.Untuk = ""
.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!
1 tahun lalu
·
#2838
0
Suara
membuka
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
1 tahun lalu
·
#2843
0
Suara
membuka
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).
1 tahun lalu
·
#2844
0
Suara
membuka
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
1 tahun lalu
·
#2847
0
Suara
membuka
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. :)
1 tahun lalu
·
#2858
0
Suara
membuka
Hai Amanda, maaf atas keterlambatannya, saya memang mengubah End jika menjadi 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?
1 tahun lalu
·
#2859
0
Suara
membuka
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
1 tahun lalu
·
#2861
0
Suara
membuka
Hai Amanda, maaf atas keterlambatannya, saya memang mengubah End jika menjadi 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?


Halo,

Mengapa tidak menyimpannya sebagai zip atau rar?:)
1 tahun lalu
·
#2864
0
Suara
membuka
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
1 tahun lalu
·
#2867
0
Suara
membuka
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
1 tahun lalu
·
#2868
0
Suara
membuka
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
1 tahun lalu
·
#2887
0
Suara
membuka
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.)
1 tahun lalu
·
#2895
0
Suara
membuka
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
1 tahun lalu
·
#2902
0
Suara
membuka
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
  • halaman:
  • 1
Tidak ada balasan yang dibuat untuk posting ini.