Gửi email trong access

  • Thread starter ĐỖ SƠN HẢI
  • Ngày gửi
Đ

ĐỖ SƠN HẢI

Guest
10/10/06
130
0
0
45
Phan Thiết
Thân gửi : Các anh chị

1. Mình tình cờ dọc 1 đoạn code để gửi email như sau :


Private Sub send_Click()

Dim mess_body As String
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)

Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
.BodyFormat = olFormatRichText
.To = Me.Email_Address
.Subject = Me.Mess_Subject
.HTMLBody = Me.Mess_Text
If Left(Me.Mail_Attachment_Path, 1) <> "<" Then
.Attachments.Add (Me.Mail_Attachment_Path)
End If
'.DeleteAfterSubmit = True 'This would let Outlook send th note without storing it in your sent bin
.Send
End With
'MsgBox MailOutLook.Body
Exit Sub
email_error:
MsgBox "An error was encountered." & vbCrLf & "The error message is: " & Err.Description
Resume Error_out
Error_out:

End Sub



2. Tình huống vận dụng tao chuong trinh ung dung :

Thông kê khách hàng nghĩ honeymoon năm trước và nam sau chuong trinh tự động gửi email cho khách vao ngay khach thue phong nam truoc voi thông điệp quãng cáo hấp dẫn .

Do mình không phải dân lập trình chuyên nghiệp nên làm như sau :


Thiết kế một table

Send_honeymoon (ngay, email)

VD: ngay (1/1/2010)
email ( A;B;C; D; ........)

3. khi mình gửi thì trong họp thoại người nhận lại thể hiện hết các email ( A; B; C....) rất bất tiện .


Nhờ các anh chị chỉ giúp cách che bớt các email này nghĩa là người nhận chỉ nhìn thấy chịa chỉ của mình ?


Thanks & Best Regards,
 
Khóa học Quản trị dòng tiền
Đ

ĐỖ SƠN HẢI

Guest
10/10/06
130
0
0
45
Phan Thiết
Gửi các thành viên !!
Vui lòng gửi giúp mình giải pháp .

Thanks
 

Xem nhiều

Webketoan Zalo OA