Nhờ hướng dẫn làm userform gởi mail

[luuphong69]

Xin chào các anh/chị ,

Em có làm 1 userform để gởi mail báo lỗi hệ thống vì mỗi hệ thống lỗi thì gởi cho các nhóm người khác nhau để xử lý nên em làm tool này cho nhanh.

Em đang gặp 2 vấn đề này nhưng không biết cách xử lý, nhờ các anh/chị hỗ trợ giúp em ạ:
1. Khi em check vào checkbox Major incident thì từ dòng He thong 6 trở đi là tiêu đề email không hiện chữ Major Incident (như hình 1) (dòng He thong 1-> He thong 5 hiện ra bình thường (như hình 2)

2. Em tạo 1 nút Attached file để đính kèm file gởi mail nhưng em không biết cách để đính kèm các file đó lên mail, nhờ các anh/chị viết hoặc hướng dẫn giúp em đoạn này (do các code này em lượm lặt trên mạng nên cũng không hiểu rõ lắm)

Xin cảm ơn các anh/chị.

 

[hvnhpro]

.Attachments.Add (Path_File_Attach)
bạn get link file đính kèm vào đây thôi

 

[luuphong69]

.Attachments.Add (Path_File_Attach)
bạn get link file đính kèm vào đây thôi

code này em copy nên em không biết cách lấy Path_File_Attach từ hàm cmdAttachfile_Click() về cmdGoimail_Click() ạ
anh có thể hướng dẫn cụ thể hơn không ạ ?
cảm ơn anh

 

[hvnhpro]

Trong file bạn gửi, bạn thay dòng

.Attachments.Add (Attachment1)

bằng dòng

.Attachments.Add ([filePath])

xem có được không.

 

[luuphong69]

Trong file bạn gửi, bạn thay dòng

.Attachments.Add (Attachment1)

bằng dòng

.Attachments.Add ([filePath])

xem có được không.

Em có làm theo hướng dẫn nhưng không thấy có đính kèm, nhờ anh xem lại giúp nhé
tks anh

 

[hvnhpro]

t không thạo dùng form lắm nên chỉ sửa theo cách trình gà - t đang dùng.
bạn sửa trong phần Private Sub cmdAttachfile_Click()

[filePath] = .SelectedItems.Item(1)

thành

ThisWorkbook.Worksheets("PARAM").Range("G9").Value = .SelectedItems.Item(1)

Bạn có thể sửa lại địa chỉ ô bạn có thể lưu địa chỉ file, mình đang để ô G9 ở sheet Param.

Chỗ attachfile vào mail ở trên mình nói sửa lại thành

.Attachments.Add ThisWorkbook.Worksheets("PARAM").Range("G9").Value

 

[luuphong69]

t không thạo dùng form lắm nên chỉ sửa theo cách trình gà - t đang dùng.
bạn sửa trong phần Private Sub cmdAttachfile_Click()

[filePath] = .SelectedItems.Item(1)

thành

ThisWorkbook.Worksheets("PARAM").Range("G9").Value = .SelectedItems.Item(1)

Bạn có thể sửa lại địa chỉ ô bạn có thể lưu địa chỉ file, mình đang để ô G9 ở sheet Param.

Chỗ attachfile vào mail ở trên mình nói sửa lại thành

.Attachments.Add ThisWorkbook.Worksheets("PARAM").Range("G9").Value

Cảm ơn anh, em đã làm được phần này.

Nhờ anh xem giúp em phần này luôn nhé.

1. Khi em check vào checkbox Major incident thì từ dòng He thong 6 trở đi là tiêu đề email không hiện chữ Major Incident (như hình 1) (dòng He thong 1-> He thong 5 hiện ra bình thường (như hình 2)

Câu lệnh bên dưới em thấy cũng bình thường mà sao chạy được từ dòng 1 đến dòng 5, còn từ dòng 6 trở đi thì không chạyđược. :
If cbmajoricd.Value = True Then .Subject = Replace(.Subject, "$hmajor", "Major Incident - ")
If cbmajoricd.Value = False Then .Subject = Replace(.Subject, "$hmajor", "")




Cảm ơn anh

 

[hvnhpro]

Cảm ơn anh, em đã làm được phần này.

Nhờ anh xem giúp em phần này luôn nhé.

1. Khi em check vào checkbox Major incident thì từ dòng He thong 6 trở đi là tiêu đề email không hiện chữ Major Incident (như hình 1) (dòng He thong 1-> He thong 5 hiện ra bình thường (như hình 2)

Câu lệnh bên dưới em thấy cũng bình thường mà sao chạy được từ dòng 1 đến dòng 5, còn từ dòng 6 trở đi thì không chạyđược. :
If cbmajoricd.Value = True Then .Subject = Replace(.Subject, "$hmajor", "Major Incident - ")
If cbmajoricd.Value = False Then .Subject = Replace(.Subject, "$hmajor", "")




Cảm ơn anh

t xem cái file Icd VN.msg của bạn trong tiêu đề không có "$hmajor" nên replace không tìm thấy.
Bạn sửa lại tiêu đề thêm phần này là được.

Ngoài ra phần Attachfile ở trên, nếu không phải lúc nào cũng đính kèm mail thì bạn cần trèn thêm dòng code sau dưới dòng code

Set OutApp = Nothing

để tránh lần gửi mail sau lại đính kèm file cũ

ThisWorkbook.Worksheets("PARAM").Range("G9").Value = ""

 

[luuphong69]

Cả

t xem cái file Icd VN.msg của bạn trong tiêu đề không có "$hmajor" nên replace không tìm thấy.
Bạn sửa lại tiêu đề thêm phần này là được.

Ngoài ra phần Attachfile ở trên, nếu không phải lúc nào cũng đính kèm mail thì bạn cần trèn thêm dòng code sau dưới dòng code

Set OutApp = Nothing

để tránh lần gửi mail sau lại đính kèm file cũ

ThisWorkbook.Worksheets("PARAM").Range("G9").Value = ""

Cảm ơn anh nhiều