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!
> <http://sg.rd.yahoo.com/search/toolbar/mail/signature/*http://sg.toolbar.yahoo.com/>
>
>
--
[Haer Talib]
MVP Office Access
Meet me at www.RumahAccess.com
=>
