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

[saobekhonglac]

Lưu ý là dấu chấm(.) ở trước chữ body không có đâu nhé!

Nếu không có dấu (.) thì thư gửi chỉ có nội dung thư không có chữ ký.

 

[chucuoi92]

Nếu không có dấu (.) thì thư gửi chỉ có nội dung thư không có chữ ký.

Nôi dung đã có ở dòng
.HTMLBody = body & Signature
dòng này bao gồm ghép chữ ký và body mà body ở đây đã ghép các biến Vdoc...

Bài đã được tự động gộp: 26/9/18

Gửi cái file lên cho anh xem vậy.

 

[saobekhonglac]

Nôi dung đã có ở dòng
.HTMLBody = body & Signature
dòng này bao gồm ghép chữ ký và body mà body ở đây đã ghép các biến Vdoc...

Bài đã được tự động gộp: 26/9/18

Gửi cái file lên cho anh xem vậy.

Lúc nảy em bỏ dấu . nhằm ở htmlbody. File anh gửi em thì có nội dung và chữ ký rồi, nhưng nội dung 3 cột nó dính liền với nhau chứ không có xuống dòng anh ơi "Chào Anh/Chị Vui lòng xem file đính kèm Cám ơn."

 

[chucuoi92]

Lúc nảy em bỏ dấu . nhằm ở htmlbody. File anh gửi em thì có nội dung và chữ ký rồi, nhưng nội dung 3 cột nó dính liền với nhau chứ không có xuống dòng anh ơi "Chào Anh/Chị Vui lòng xem file đính kèm Cám ơn."

Anh thay "vbNewLine" = "<BR>"

 

[saobekhonglac]

Anh thay "vbNewLine" = "<BR>"

Cám ơn anh nhiều. Nếu muốn chỉnh font chữ của nội dung từ mặc định qua font Arial thì sửa code như thế nào vậy anh.

 

[chucuoi92]

Nó báo lỗi code màu đỏ anh ơi.

Như thế này anh ơi.
Body = vDoc1 & "<BR><BR>" & vDoc2 & "<BR><BR>" & vDoc3 & "<BR><BR>"

Bài đã được tự động gộp: 26/9/18

Cám ơn anh nhiều. Nếu muốn chỉnh font chữ của nội dung từ mặc định qua font Arial thì sửa code như thế nào vậy anh.

Anh tham khảo cách viết trong HTML ở link dưới.
https://www.w3schools.com/html/html_styles.asp

 

[saobekhonglac]

Như thế này anh ơi.
Body = vDoc1 & "<BR><BR>" & vDoc2 & "<BR><BR>" & vDoc3 & "<BR><BR>"

Nếu muốn sửa font thành Arial thì sữa như thế nào vậy anh, mail đang lấy font mặc định là "Calibri"

 

[chucuoi92]

Nếu muốn sửa font thành Arial thì sữa như thế nào vậy anh, mail đang lấy font mặc định là "Calibri"

Anh xem bài gộp bên trên nhé.

 

[saobekhonglac]

Anh xem bài gộp bên trên nhé.

Đã làm được, cám ơn anh nhiều.
Body = "<p style='font-family:Arial;font-size:15'>" & vDoc1 & "<BR><BR>" & vDoc2 & "<BR><BR>" & vDoc3 & "<BR>"

 

[Nho Đức]

Nôi dung đã có ở dòng
.HTMLBody = body & Signature
dòng này bao gồm ghép chữ ký và body mà body ở đây đã ghép các biến Vdoc...

Bài đã được tự động gộp: 26/9/18

Gửi cái file lên cho anh xem vậy.

Anh cho mình hỏi trong file của anh khi ấn gửi mail thì nó hiện lên các hộp thoại, phải ấn send thì mail mới đi, gửi nhiều mail thì nó hiện rất nhiều hộp thoại vậy. Có cách nào ấn gửi thì nó gửi luôn ko hỏi ko ạ. thanks a

 

[chucuoi92]

Anh cho mình hỏi trong file của anh khi ấn gửi mail thì nó hiện lên các hộp thoại, phải ấn send thì mail mới đi, gửi nhiều mail thì nó hiện rất nhiều hộp thoại vậy. Có cách nào ấn gửi thì nó gửi luôn ko hỏi ko ạ. thanks a

bỏ cái MsgBox ("Xong phim") đó đi thôi.

 

[Nho Đức]

bỏ cái MsgBox ("Xong phim") đó đi thôi.

Minh đã viết đc code gửi mail đối với trường hợp của mình rồi, gửi mail ok nhưng ko biết chèn chữ ký giống file của bạn. thử áp dụng đoạn code signature = outmail.htmtbody cũng không đc. Bạn giúp mình đoạn này đc không. Cảm ơn bạn

 

[chucuoi92]

Minh đã viết đc code gửi mail đối với trường hợp của mình rồi, gửi mail ok nhưng ko biết chèn chữ ký giống file của bạn. thử áp dụng đoạn code signature = outmail.htmtbody cũng không đc. Bạn giúp mình đoạn này đc không. Cảm ơn bạn

phần signature mình viết là signature mặc định trên outlook, còn như bạn muốn chữ ký ở trên sheet thì thêm phần đó vao body là được

 

[batman1]

phần signature mình viết là signature mặc định trên outlook, còn như bạn muốn chữ ký ở trên sheet thì thêm phần đó vao body là được

Hiểu sai ý rồi.

Lấy chữ ký từ sheet là "Từ xưa tới nay" người ta làm thế. Bây giờ người ta muốn lấy từ outlook.

Trích

Minh đã viết đc code gửi mail đối với trường hợp của mình rồi, gửi mail ok nhưng ko biết chèn chữ ký giống file của bạn. thử áp dụng đoạn code signature = outmail.htmtbody cũng không đc

Và trong tập tin Word có thử lấy từ outlook

'sign = olmail.HTMLBody

sign = RỖNG là đương nhiên. Muốn sign <> RỖNG thì trước dòng trên phải có olmail.Display

 

[Nho Đức]

Hiểu sai ý rồi.

Lấy chữ ký từ sheet là "Từ xưa tới nay" người ta làm thế. Bây giờ người ta muốn lấy từ outlook.

Trích


Và trong tập tin Word có thử lấy từ outlook


sign = RỖNG là đương nhiên. Muốn sign <> RỖNG thì trước dòng trên phải có olmail.Display

anh có thể sửa trực tiếp trên code giúp mình không, vì mình vừa mới tập tành học vba, code trên là học lõm của ngta về chế biến thành của mình nên mình chưa rành lắm. Cảm ơn anh

 

[batman1]

anh có thể sửa trực tiếp trên code giúp mình không, vì mình vừa mới tập tành học vba, code trên là học lõm của ngta về chế biến thành của mình nên mình chưa rành lắm. Cảm ơn anh

Tôi viết rõ mà. Trích bài #35

trước dòng trên phải có olmail.Display

dòng trên là dòng mà tôi trích từ code của bạn

'sign = olmail.HTMLBody

Tất nhiên dòng trên phải bỏ dấu nháy đi.

Tóm lại phải có sign = olmail.HTMLBody, và trước dòng đó phải có olmail.Display. Thế thôi.

olmail.Display
sign = olmail.HTMLBody

 

[Nho Đức]

Tôi viết rõ mà. Trích bài #35


dòng trên là dòng mà tôi trích từ code của bạn


Tất nhiên dòng trên phải bỏ dấu nháy đi.

Tóm lại phải có sign = olmail.HTMLBody, và trước dòng đó phải có olmail.Display. Thế thôi.

olmail.Display
sign = olmail.HTMLBody

Mình đã thử và vẫn không được anh ơi

 

[batman1]

Mình đã thử và vẫn không được anh ơi

Bạn dán lên đây toàn bộ code mới nhất mà bạn nói là "đã thử". Hoặc đính kèm tập tin. Không có tập tin hoặc code thì làm sao tôi biết bạn "đã thử" như thế nào.

 

[Nho Đức]

Bạn dán lên đây toàn bộ code mới nhất mà bạn nói là "đã thử". Hoặc đính kèm tập tin. Không có tập tin hoặc code thì làm sao tôi biết bạn "đã thử" như thế nào.

Dạ nhờ anh hỗ trợ giúp! cảm ơn anh

 

[batman1]

Dạ nhờ anh hỗ trợ giúp! cảm ơn anh

Làm nhưng phải suy nghĩ chút.

signature = ThisWorkbook.Sheets(1).Cells(4, 2)
...
olmail.HTMLBody = body_message1 & "<BR>" & signature

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à

sign = olmail.HTMLBody
...
olmail.HTMLBody = body_message1 & "<BR>" & sign

Tóm lại THỨ TỰ code phải là
thay

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

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.