View Full Version : در مورد امکان استفاده از outlook در این فرم
linux
چهارشنبه 30 مهر 1382, 00:53 صبح
میخواستم ببینم میشه با اوت لوک به این فرم وصل شد مثل بعضی از این نیوزهایی که هستند؟
ایران ویج
چهارشنبه 30 مهر 1382, 11:20 صبح
من خودم کار نکردم ولی این کد واسه استفاده از آوت لوک مربوط به آفیس هستش که ایمیلهایی که ارسال شده رو نمایش میده ولی قبلش باید آفیس رو بخصوص آوت لوک روسیستمت نصب باشه تا کامپوننت های مربوطه رو بشه به ویپوال بیسیک اضافه کرد
Dim oApp As New Outlook.Application
Dim oExp As Outlook.Explorer
Dim oSel As Outlook.Selection ' You need a selection object for getting the selection.
Dim oItem As Object ' You don't know the type yet.
Set oExp = oApp.ActiveExplorer ' Get the ActiveExplorer.
Set oSel = oExp.Selection ' Get the selection.
For i = 1 To oSel.Count ' Loop through all the currently .selected items
Set oItem = oSel.Item(i) ' Get a selected item.
DisplayInfo oItem ' Display information about it.
Next i
ایران ویج
چهارشنبه 30 مهر 1382, 11:22 صبح
من خودم کار نکردم ولی این کد واسه استفاده از آوت لوک مربوط به آفیس هستش که ایمیلهایی که ارسال شده رو نمایش میده ولی قبلش باید آفیس رو بخصوص آوت لوک روسیستمت نصب باشه تا کامپوننت های مربوطه رو بشه به ویپوال بیسیک اضافه کرد
Dim oApp As New Outlook.Application
Dim oExp As Outlook.Explorer
Dim oSel As Outlook.Selection ' You need a selection object for getting the selection.
Dim oItem As Object ' You don't know the type yet.
Set oExp = oApp.ActiveExplorer ' Get the ActiveExplorer.
Set oSel = oExp.Selection ' Get the selection.
For i = 1 To oSel.Count ' Loop through all the currently .selected items
Set oItem = oSel.Item(i) ' Get a selected item.
DisplayInfo oItem ' Display information about it.
Next i
'-----------------------------------------------
Sub DisplayInfo(oItem As Object)
Dim oMailItem As Outlook.MailItem
strMessageClass = oItem.MessageClass
If (strMessageClass = "IPM.Note") Then ' Mail Entry.
Set oMailItem = oItem
MsgBox oMailItem.Subject
MsgBox oMailItem.SenderName
End If
End Sub
linux
چهارشنبه 30 مهر 1382, 19:13 عصر
منظورم بیشتر این بود که بصورت افلاین بشه به سوالات جواب داد بعد که آنلاین شدی
بفرستی
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.