]] XL-mania [[ Send Mail_If Unread then catat di notepad

 

menyambung subject ] XL-mania [[ Workbook yg Rajin mencatat Nama
Excel-User yg membukanya

tentang pertanyaan dari p02cc <p02cc@bussan.co.id>:
Untuk kasus dibawah ini, bisa tidak bila kita kirim melalui e-mail dan
yang menerima e-mail tersebut membuka File yang kita kirim dan
langsung tercatat di file notepad yang ada di computer kita

Zaldi Ardiyansyah ( P02CC )
Member of Core System

Tanggapannya kira-kira begini:
Jika kebetulan menggunakan MS Outlook bisa memanfaatkan object
EmailItem.UnRead = True

di Setandar modul (sepeda kali setandar)

Sub SendAndWriteToNotePad()

Dim OL As Object
Dim EmailItem As Object

Const mypath As String = "d:\LogInfo\"
Application.ScreenUpdating = False
Set OL = CreateObject("Outlook.Application")

Set EmailItem = OL.CreateItem(0)

With EmailItem
.Subject = "Test aja.."
.Body = "" & vbCrLf & _
"" & vbCrLf & _
""
.To = "xxxx@aabbbcc"
.Display
.OriginatorDeliveryReportRequested = True
End With

If EmailItem.UnRead = True Then

'Disini perlu di modif dengan codingnya mba Siti.. (masih nyimpen khan)

Call LogInfo( _
Format(Now, "dd-mmm-yyyy hh:mm:ss") & " " & _
"Unread by " & Application.UserName)

EmailItem.UnRead = False

End If
Application.ScreenUpdating = True

Set OL = Nothing
Set EmailItem = Nothing
End Sub

Semoga bermanfaat

__._,_.___

Messages in this topic (1) Reply (via web post) | Start a new topic

Messages

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Tolong cariin momods kerjaan jadi direktur dongggg... :D :D :D    |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

Recent Activity

•  65
  New Members

Visit Your Group

Give Back

Yahoo! for Good

Get inspired

by a good cause.

Y! Toolbar

Get it Free!

easy 1-click access

to your groups.

Yahoo! Groups

Start a group

in 3 easy steps.

Connect with others.

.

__,_._,___