Nhờ thêm chữ ký trong file gửi mail

Liên hệ QC
Làm nhưng phải suy nghĩ chút.

Hồi xưa lấy chữ ký từ sheet thì mới dùng code trên. Bây giờ lấy từ outlook thì sao vấn là code ở trên??????????????

Bây giờ lấy từ outlook nên phải là
Mã:
sign = olmail.HTMLBody
...
olmail.HTMLBody = body_message1 & "<BR>" & sign

Tóm lại THỨ TỰ code phải là
thay
Mã:
olmail.To = ThisWorkbook.Sheets(2).Cells(i, 4)
 olmail.CC = ThisWorkbook.Sheets(2).Cells(i, 5)
 olmail.Subject = ThisWorkbook.Sheets(1).Cells(2, 2)
 olmail.BodyFormat = olFormatHTML
 olmail.HTMLBody = body_message1 & "<BR>" & signature
       
 olmail.Attachments.Add ThisWorkbook.Path & "\File dinh kem\" & ThisWorkbook.Sheets(2).Cells(i, 8)
 olmail.Display
  sign = olmail.HTMLBody
 
 olmail.Send

bằng
Mã:
olmail.To = ThisWorkbook.Sheets(2).Cells(i, 4)
 olmail.CC = ThisWorkbook.Sheets(2).Cells(i, 5)
 olmail.Subject = ThisWorkbook.Sheets(1).Cells(2, 2)
 olmail.BodyFormat = olFormatHTML
 olmail.Attachments.Add ThisWorkbook.Path & "\File dinh kem\" & ThisWorkbook.Sheets(2).Cells(i, 8)
 
 olmail.Display
 sign = olmail.HTMLBody
 olmail.HTMLBody = body_message1 & "<BR>" & sign
 
 olmail.Send

Và nhớ xóa signature = ThisWorkbook.Sheets(1).Cells(4, 2) đi. Bây giờ là lấy từ outlook chứ đâu còn lấy từ sheet.
dạ cảm ơn anh rất nhiều, giờ mới thông não ra anh ơi. đợt dịch này ở nhà nên sẽ cố gắng học để không hỏi những câu vớ vẩn như vậy nữa. hi
 
Web KT

Bài viết mới nhất

Back
Top Bottom