bisa juga. tapi tidak bisa resolve email address kalau to atau cc nya diisi
userid yang sama saat login windows. dengan kata lain harus format email
address. kalau hanya untuk mengirim object access, ok. tapi untuk attachment
yang lain sepertinya akan bermasalah.
salam,
edi
Haer Talib <[EMAIL PROTECTED]> wrote:
kalau pakai docmd.sendobject saja gimana?
haer
On Mon, Nov 17, 2008 at 12:47 PM, edi rosadi <[EMAIL PROTECTED]> wrote:
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!
--
[Haer Talib]
MVP Office Access
Meet me at www.RumahAccess.com
=>
---------------------------------
Share Flickr photos with your friends within Messenger.
Discover the all-new Yahoo! Messenger today!
