Saya sudah pernah membuat sistem emailing utk notifikasi jika sesuatu telah
dikerjakan di access. Sistem akan mengirimkan attechment ke semua sender di
database bank. Insya Allah script ini bisa membantu anda:
Option Compare Database
'Module Level Declaration (WithEvents optional but recommended)
Public poSendMail As vbSendMail.clsSendMail
Public Function SMTPprocship()
'(strMailTo As String, strMailSubject As String, strMailMsg As String,
strMailAtt As String, strMailCc As String)
Dim mydb As Database
Dim mytb As DAO.Recordset
Set mydb = CurrentDb
Set mytb = mydb.OpenRecordset("dbo_TbEmailMaster", DB_OPEN_DYNASET,
dbSeeChanges)
Set poSendMail = New vbSendMail.clsSendMail
poSendMail.SMTPPort = "25"
poSendMail.SMTPHost = "192.168.1.25"
poSendMail.UseAuthentication = True
poSendMail.UserName = "someone"
poSendMail.password = "xxxxxxxx"
poSendMail.Connect
mytb.MoveFirst
Do While Not mytb.EOF
poSendMail.from = "[email protected]"
poSendMail.FromDisplayName = "Local System Niaga Merapi"
poSendMail.Recipient = mytb.Fields(1)
poSendMail.Subject = "New Shipment Uploaded in Local System Date On : " +
CStr(Now())
poSendMail.Message = "This System Generated Automatically When New Ship
Uploaded By the Sys User, Pls don't Re-Reply this Email.Pls See Attachment this
Email For further information. Thx"
poSendMail.Attachment = "d:\wiptag\import\ship.xls"
poSendMail.Send
mytb.MoveNext
Loop
'****************
'For multiple file attachments, you need to separate each _ file name by a
'semi colon (;) within the string quote. '
'poSendMail.Attachment = strMailAtt
'****************
poSendMail.Disconnect
Set poSendMail = Nothing
End Function
Utk Email sender anda tinggal membuat di database khusus utk sender. Sistem
akan looping sesuai dengan jumlah sendernya.
Wassalam,
Irawan M
--- Pada Kam, 29/1/09, hamdani <[email protected]> menulis:
Dari: hamdani <[email protected]>
Topik: Re: [belajar-access] ADP menjadi MDB
Kepada: [email protected]
Tanggal: Kamis, 29 Januari, 2009, 9:49 PM
ehmm.... sebelumnya saya mohon maaf pak, sistem yang dibuat hanya
program sederhana saja kok pak, dan sudah saya develop hampir 98%. hanya saya
ingin menambah form email di program saya, jadi user mengirim update database
yang bisa difilter pertanggal (thanks pak Andria Rismawandi) lewat email yang
ada di program itu, jadi tidak membuka-buka lagi email cleint yang lain.
2009/1/29 aksan kurdin <aksan.kurdin@ gmail.com>
ya...
kalau bang haer kemahalan ....
masih ada yang lain ....
budget berapa ?
aksan kurdin
:P
2009/1/29 hamdani <hamdan...@gmail. com>:
> ehmm...... boleh juga pak... tapi... untuk membayar sekelas bapak saya tidak
> mampu.
>
> saya akui memang sangat masih newbie pak...
> tapi aku juga pengen seperti bapak, saya ingin terus belajar programming,
> insyaalloh jika kita ingin berubah alloh akan kasih jalan...
>
> jazakalloh
>
> 2009/1/29 Haer Talib <haerta...@gmail. com>
>>
>> hehehe...
>> gimana kalau saya buatin aja :)
>>
>>
>>
>> 2009/1/28 hamdani <hamdan...@gmail. com>
>>>
>>> ok dah saya coba bisa pak haer.
>>>
>>> terima kasih
>>>
>>>
>>> satu lagi pak haer, saya sedang membuat sistem, sistem ini saya ingin
>>> taruh beberapa cabang, lalu setiap cabang mengirim data backup yang
>>> terfilter menurut tanggal melalui email dan saya ingin dalam sistem tersebut
>>> ada satu form untuk mengirim email (jadi tidak perlu membuka MS Outlook).
>>> yang jadi pertannyaan :
>>> adakah contoh form untuk membuat email dan sekalian setting account
>>> emailnya serta ada untuk sekalian kirim attachmentnya pak?
>>>
>>> terima kasih
>>>
>>>
>>> Pada 28 Januari 2009 17:11, Haer Talib <haerta...@gmail. com> menulis:
>>>>
>>>> create mdb baru, import all dari adp.
>>>>
>>>> harus dicoba, lalu kalau ada error di-debug :)
>>>>
>>>> Haer
>>>>
>>>>
>>>> 2009/1/28 hamdani <hamdan...@gmail. com>
>>>>>
>>>>> dear All
>>>>>
>>>>> bagaimana caranya mengconvert file ADP menjadi MDB ?
>>>>>
>>>>> thanks
>>>>>
>>>>> b/r
>>>>>
>>>>> hamdani
>>>>
>>>>
>>>>
>>>> --
>>>> [Haer Talib]
>>>> MVP Office Access
>>>> Meet me at www.RumahAccess. com
>>>>
>>>> =>
>>>>
>>>
>>
>>
>>
>> --
>> [Haer Talib]
>> MVP Office Access
>> Meet me at www.RumahAccess. com
>>
>> =>
>>
>
>
--
Aksan Kurdin
Mencari semua teman di Yahoo! Messenger? Undang teman dari Hotmail, Gmail
ke Yahoo! Messenger dengan mudah sekarang! http://id.messenger.yahoo.com/invite/
