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

saobekhonglac · 17/9/18

Chào Anh/Chị.

Anh/Chị sửa giúp em code trong file đính kèm khi gửi mail mình bổ sung thêm chữ ký vào mail giúp em với. Với trường hợp khi bấm gửi tự động Excel hay hiện hộp thoại có muốn lưu file đính kèm hay không, nếu chọn lưu thì file đính kèm bị trắng hết file, còn không lưu thì không sao, nhưng gửi đi gửi lại nhiều lần nó cứ hỏi lưu hay không hoài (mail này mình phải gửi hằng ngày).
Chúc Anh/Chị có tuần mới vui vẻ.
Cám ơn Anh/Chị.

saobekhonglac · 18/9/18

Giúp với.

saobekhonglac · 19/9/18

Giúp mình thêm chữ ký vào mail với (chữ ký có sẵn trong Outlook)

saobekhonglac · 21/9/18

saobekhonglac đã viết:
Giúp mình thêm chữ ký vào mail với (chữ ký có sẵn trong Outlook)

Có ai giúp với, em mò mấy ngày rồi mà không ra

batman1 · 22/9/18

saobekhonglac đã viết:
saobekhonglac đã viết:

Giúp mình thêm chữ ký vào mail với (chữ ký có sẵn trong Outlook)

Nhấp chuột vào đây để mở rộng...

Có ai giúp với, em mò mấy ngày rồi mà không ra

Signature?
Signature là văn bản hay cả văn bản và ảnh?
Trong Outlook có thể có rất nhiều signature, trong đó có 1 signature mặc định. Đính kèm mặc định hay muốn đính kèm 1 signature khác được chỉ ra cụ thể?

saobekhonglac · 24/9/18

batman1 đã viết:
Signature?
Signature là văn bản hay cả văn bản và ảnh?
Trong Outlook có thể có rất nhiều signature, trong đó có 1 signature mặc định. Đính kèm mặc định hay muốn đính kèm 1 signature khác được chỉ ra cụ thể?

Mặc định đã tạo trong outlook nha anh

hpkhuong · 24/9/18

Tôi chỉ xem vụ chữ ký.

Tìm dòng này: Set OutMail = OutApp.CreateItem(0)
Thêm đoạn code sau vào sau dòng trên

Mã:

With OutMail
     .Display
End With
    CK = OutMail.htmlBody

Và sửa:

Mã:

.Body = vDoc1 & vbNewLine & vbNewLine & _
                           vDoc2 & vbNewLine & _
                            vbNewLine & _
                           vDoc3 & _
                           vbNewLine

Thành

Mã:

.htmlBody = vDoc1 & vbNewLine & vbNewLine & _
                           vDoc2 & vbNewLine & _
                            vbNewLine & _
                           vDoc3 & _
                           vbNewLine & CK

saobekhonglac · 24/9/18

hpkhuong đã viết:
Tôi chỉ xem vụ chữ ký.

Tìm dòng này: Set OutMail = OutApp.CreateItem(0)
Thêm đoạn code sau vào sau dòng trên

Mã:

With OutMail .Display End With CK = OutMail.htmlBody

Và sửa:

Mã:

.Body = vDoc1 & vbNewLine & vbNewLine & _ vDoc2 & vbNewLine & _ vbNewLine & _ vDoc3 & _ vbNewLine

Thành

Mã:

.htmlBody = vDoc1 & vbNewLine & vbNewLine & _ vDoc2 & vbNewLine & _ vbNewLine & _ vDoc3 & _ vbNewLine & CK

Code chữ ký bữa giờ e có làm như vậy rồi cũng không được anh ơi.

saobekhonglac · 25/9/18

rickjp đã viết:
Thử sửa tay từng cái 1 trước khi gửi xem

Sửa tay là sao vậy anh.

chucuoi92 · 25/9/18

saobekhonglac đã viết:
Sửa tay là sao vậy anh.

Để có chứ ký đâu tiên phải tạo thư trống trước:
---------------------------------------------
Set OutMail = OutApp.CreateItem(0)
OutMail.Display (mở một cửa sổ viết thư)
Signature = OutMail.HTMLBody (chữ ký được tạo ở câu lệnh này)
--------------------------------------------
sau khi đã có được chữ ký rồi thì mới lại "With OutMail" tiếp và điền những thứ liên quan và file đính kèm
-------------------------------------------------
With OutMail
.To = vTo
.CC = vCC
.BCC = ""
.Subject = vSject
.HTMLBody = body & Signature (body ở đây là một biến String)
.Attachments.Add wb.FullName
End with
--------------------------------------------------
Em chỉ hướng như vậy thôi, còn anh phải tự viết.

batman1 · 25/9/18

chucuoi92 đã viết:
Để có chứ ký đâu tiên phải tạo thư trống trước:
---------------------------------------------
Set OutMail = OutApp.CreateItem(0)
OutMail.Display (mở một cửa sổ viết thư)
Signature = OutMail.HTMLBody (chữ ký được tạo ở câu lệnh này)
--------------------------------------------
sau khi đã có được chữ ký rồi thì mới lại "With OutMail" tiếp và điền những thứ liên quan và file đính kèm
-------------------------------------------------
With OutMail
.To = vTo
.CC = vCC
.BCC = ""
.Subject = vSject
.HTMLBody = body & Signature (body ở đây là một biến String)
.Attachments.Add wb.FullName
End with

Không nhất thiết, có thể đặt sau .Subject. Chỉ nhớ là trước khi Display thì không được thiết lập htmLBody. Tức không có

Mã:

.htmlBoby = "cái gì đó'
...
.Display

Bởi một khi đã thiết lập htmlBody thì ở thời điểm thiết lập thư đã có nội dung không kèm chữ ký. Từ lúc đó trở đi không thể thêm chữ ký được nữa bằng cách Display.

Chỉ cần quan sát Outlook. Khi ta vào outlook và chọn New mail thì cửa sổ soạn thư hiện ra và outlook chèn chữ ký mặc định nếu có. Tức ở thời điểm này đã có thư xịn 100%. Có thể nhấn gửi, tất nhiên có điền người nhận, và thư sẽ được gửi. Nội dung thư chỉ có chữ ký bởi người gửi thích thế, quyền của người ta.

Khi đã có thư trống với chữ ký rồi thì nó có nội dung HTML. Chỉ cần nối nội dung HTML đó với nội dung thư để tạo nội dung htmlbody mới. Cái nội dung HTML của chữ ký kia nó chính là .htmlBody ở bên phải dấu =

Mã:

.Display
.htmlbody = "nội dung thư" & .htmlbody

Cái .Display kia chính là hiển thị cửa sổ soạn thư, bắt chước cách nhấn new mail trong outlook.

Trước tôi có nói là có thể có nhiều signature và người dùng định chèn chữ ký nào. Không phải vô cớ mà tôi hỏi. Bởi nếu muốn chèn chữ ký không mặc định thì không dùng Display được. Vì giống như thao tác bằng tay trong outlook khi nhấn new mail thì chữ ký mặc định luôn được chèn. Lúc đó muốn thay bằng chữ ký mong muốn thì phải "cầy" thêm nữa.

Người ta có thể có nhiều chữ ký dùng cho nhiều đối tượng nhận thư. Và tùy theo nhu cầu ở thời điểm cụ thể người ta muốn chọn chữ ký thích hợp, không nhất thiết là mặc định.

saobekhonglac · 25/9/18

chucuoi92 đã viết:
Để có chứ ký đâu tiên phải tạo thư trống trước:
---------------------------------------------
Set OutMail = OutApp.CreateItem(0)
OutMail.Display (mở một cửa sổ viết thư)
Signature = OutMail.HTMLBody (chữ ký được tạo ở câu lệnh này)
--------------------------------------------
sau khi đã có được chữ ký rồi thì mới lại "With OutMail" tiếp và điền những thứ liên quan và file đính kèm
-------------------------------------------------
With OutMail
.To = vTo
.CC = vCC
.BCC = ""
.Subject = vSject
.HTMLBody = body & Signature (body ở đây là một biến String)
.Attachments.Add wb.FullName
End with
--------------------------------------------------
Em chỉ hướng như vậy thôi, còn anh phải tự viết.

Trước đây em có xem những file có chữ ký mặc đình và làm theo như vậy rồi, nhưng vẫn không được nên mới đăng lên diễn đàn (khi nó display để soạn 1 mail mới thì nó có chử ký, nhưng khi gửi lại xóa chữ ký đó đi). bên trên em có dòng "Dim Signature As String" luôn nhưng vẫn không có chữ ký mặc định khi gửi

batman1 · 25/9/18

saobekhonglac đã viết:
Trước đây em có xem những file có chữ ký mặc đình và làm theo như vậy rồi, nhưng vẫn không được nên mới đăng lên diễn đàn (khi nó display để soạn 1 mail mới thì nó có chử ký, nhưng khi gửi lại xóa chữ ký đó đi). bên trên em có dòng "Dim Signature As String" luôn nhưng vẫn không có chữ ký mặc định khi gửi

Nói có sách mách có chứng.
Hãy gửi toàn bộ code gửi thư lên đây để mọi người kiểm chứng.
Có nhiều người thề là làm đúng hướng dẫn nhưng khi được yêu cầu và gửi code lên thì ai cũng thấy là làm không như hướng dẫn.

Không thể có chuyện mọi người làm được mà mình "làm y như thế" mà lại không được.

saobekhonglac · 26/9/18

batman1 đã viết:
Nói có sách mách có chứng.
Hãy gửi toàn bộ code gửi thư lên đây để mọi người kiểm chứng.
Có nhiều người thề là làm đúng hướng dẫn nhưng khi được yêu cầu và gửi code lên thì ai cũng thấy là làm không như hướng dẫn.

Không thể có chuyện mọi người làm được mà mình "làm y như thế" mà lại không được.

Anh xem file đính kèm giúp em.

chucuoi92 · 26/9/18

saobekhonglac đã viết:
Anh xem file đính kèm giúp em.

Sai ở chỗ này:

.HTMLBody = body & Signature ->Dòng này đã có nội dung thư và chữ ký
.body = vDoc1 & vbNewLine & vbNewLine & _ -> nhưng dòng dưới này lại viết lại nội dung thư khác
vDoc2 & vbNewLine & _
vbNewLine & _
vDoc3 & _
vbNewLine

saobekhonglac · 26/9/18

chucuoi92 đã viết:
Sai ở chỗ này:

.HTMLBody = body & Signature ->Dòng này đã có nội dung thư và chữ ký
.body = vDoc1 & vbNewLine & vbNewLine & _ -> nhưng dòng dưới này lại viết lại nội dung thư khác
vDoc2 & vbNewLine & _
vbNewLine & _
vDoc3 & _
vbNewLine

Anh sửa giúp em được không, em bỏ dòng .HTMLBody = body & Signature sau vDoc3 & _ vbNewline thì thư nó không có nội dung nào hết kể cả chữ ký

chucuoi92 · 26/9/18

saobekhonglac đã viết:
Anh sửa giúp em được không, em bỏ dòng .HTMLBody = body & Signature sau vDoc3 & _ vbNewline thì thư nó không có nội dung nào hết kể cả chữ ký

Sao lại bỏ dòng
.HTMLBody = body & Signature

sửa thế này:

PHP:

With OutMail
        .To = vTo
        .CC = vCC
        .BCC = ""
        .Subject = vSject
         body = vDoc1 & vbNewLine & vbNewLine & _
                           vDoc2 & vbNewLine & _
                            vbNewLine & _
                           vDoc3 & _
                           vbNewLine
        .HTMLBody = body & Signature

saobekhonglac · 26/9/18

chucuoi92 đã viết:
Anh cho hỏi như vậy đã có chứ ký trong mail chưa ?

Mail chỉ có con số 0 chứ k có gì trong nội dung nữa. Em có hỏi người viết code đó nhưng do bận quá hay sao người ấy không phản hồi.

chucuoi92 · 26/9/18

saobekhonglac đã viết:
Mail chỉ có con số 0 chứ k có gì trong nội dung nữa. Em có hỏi người viết code đó nhưng do bận quá hay sao người ấy không phản hồi.

xem sửa mail trên

saobekhonglac · 26/9/18

chucuoi92 đã viết:

Sao lại bỏ dòng
.HTMLBody = body & Signature

sửa thế này:

PHP:

With OutMail
        .To = vTo
        .CC = vCC
        .BCC = ""
        .Subject = vSject
         body = vDoc1 & vbNewLine & vbNewLine & _
                           vDoc2 & vbNewLine & _
                            vbNewLine & _
                           vDoc3 & _
                           vbNewLine
        .HTMLBody = body & Signature

Trước đây em cũng thử như vây rồi nhưng nó chỉ ra chữ ký chứ không có nội dung thư.

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

Thành viên mới

Thành viên mới

Thành viên mới

Thành viên mới

Thành viên gạo cội

Thành viên mới

######

Thành viên mới

Thành viên mới

Thành viên lười biếng

Thành viên gạo cội

Thành viên mới

Thành viên gạo cội

Thành viên mới

Thành viên lười biếng

Thành viên mới

Thành viên lười biếng

Thành viên mới

Thành viên lười biếng

Thành viên mới

Facebook

Group