ini prosedure-nya :
Sub SendMessage(Optional AttachmentPath)
Dim toname, ccname As String 'usernm,
Dim tbody1, tbody2, tbody3, tbody4 As String
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim objOutlookAttach As Outlook.Attachment
On Error Resume Next
tbody1 = "email body1"
tbody2 = "email body2"
tbody3 = "email body3"
tbody4 = "email body4"
' Create the Outlook session.
Set objOutlook = CreateObject("Outlook.Application")
' Create the message.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
tsubject = "Email Subject"
With objOutlookMsg ' Add the To recipient(s) to the message.
Set objOutlookRecip = .Recipients.Add(toname)
objOutlookRecip.Type = olTo
' Add the CC recipient(s) to the message.
Set objOutlookRecip = .Recipients.Add(ccname)
objOutlookRecip.Type = olCC
' Set the Subject, Body, and Importance of the message.
.subject = & tsubject
.body = tbody1 & tbody2 & tbody3 & tbody4
.Importance = olImportanceHigh 'High importance
' Add attachments to the message.
If Not IsMissing(AttachmentPath) Then
Set objOutlookAttach = .Attachments.Add(AttachmentPath)
End If
' Resolve each Recipient's name.
For Each objOutlookRecip In .Recipients
objOutlookRecip.Resolve
If Not objOutlookRecip.Resolve Then
objOutlookMsg.Display
End If
Next
.Send
End With
Set objOutlookMsg = Nothing
Set objOutlook = Nothing
End Sub
note:
toname dan ccname bisa diisi dengan emailadress atau userid, begitu juga
dengan subject dan emailbody. bisa dimodifikasi sesuai kebutuhan.
salam,
edi
aburizki.multiply.com
Endang <[EMAIL PROTECTED]> wrote:
Selamat siang,
Salam kenal semuanya, mau tanya kalo send email dari access gimana caranya
ya? Ceritanya ada report yg harus dikirim tiap hari ke (banyak) bos maunya
sih otomatis setelah data selesai input langsung kirim.
Mohon sharing pengalamannya.
Terima kasih.
---------------------------------
Yahoo! Toolbar is now powered with Search Assist. Download it now! /a
