bisa. gunakan timer atau looping. hati-hati bisa jadi spam machine... ;)
Abu Shafwa <[EMAIL PROTECTED]> wrote: kalau bikin prosedur
setiap n detik atau n menit maka akan kirim email sebanyak m email
setelah itu PAUSE dulu.. baru kirim lagi
bisakah?
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!
--
--------------------------------------/*
Abu Shafwa
www.shafwana.com
[EMAIL PROTECTED]
*\--------------------------------------
---------------------------------
Get your new Email address!
Grab the Email name you've always wanted before someone else does!
