Reconfigure for GIT
This commit is contained in:
@@ -0,0 +1,219 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports Microsoft.Office.Interop.Outlook
|
||||
Imports Microsoft.Office.Interop
|
||||
Imports System.IO
|
||||
Imports DevExpress.ExpressApp.ConditionalAppearance
|
||||
|
||||
Public Enum eCRMEstate_Leads
|
||||
eCRM = 0 'Klasszikus CRM rendszerbõl
|
||||
eCRMEstate = 1 'Ingatlanértékesítési rendszerbõl
|
||||
eManual = 2 'Manuálisan felvitt
|
||||
End Enum
|
||||
<Appearance("Hide CRMEstate_Leads", AppearanceItemType.ViewItem, "eCRMEstate_Leads=0", TargetItems:="CRMEstate_Leads", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Hide CRM_Leads, CRM_Opportunities", AppearanceItemType.ViewItem, "eCRMEstate_Leads=1", TargetItems:="CRM_Leads;CRM_Opportunities", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Hide CRM_Leads, CRM_Opportunities,eCRMEstate_Leads", AppearanceItemType.ViewItem, "eCRMEstate_Leads=2", TargetItems:="CRM_Leads;CRM_Opportunities;CRMEstate_Leads", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem("Outlook e-mail")> _
|
||||
Public Class OutlookEMail
|
||||
Inherits BaseObject
|
||||
Private _Recipients As String 'Kinek megy az emil
|
||||
Private _Subject As String 'Tárgy
|
||||
Private _HTMLBody As String 'HTML szöveg
|
||||
Private _EntryID As String = "" 'Outlook item ID
|
||||
Private _ObjectCreated As Date 'Mikor készült az objektum
|
||||
Private _UserCreated As User 'Ki készítette
|
||||
Private _OwnerUser As User
|
||||
Private _CRM_Leads As CRM_Leads 'Leads-hoz tartozik-e
|
||||
Private _CRM_Opportunities As CRM_Opportunities
|
||||
Private _CRMEstate_Leads As CRMEstate_Leads
|
||||
Private _eCRMEstate_Leads As eCRMEstate_Leads
|
||||
Private _OutlookEMailIn_Oid As String
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
Dim _CurrentUser As User = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
|
||||
Me.ObjectCreated = GetSQLTime(Session)
|
||||
Me.UserCreated = _CurrentUser
|
||||
End Sub
|
||||
<Size(255)> _
|
||||
<RuleRequiredField("OutlookEMail-Recipients", DefaultContexts.Save)> _
|
||||
Property Recipients As String
|
||||
Get
|
||||
Return _Recipients
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Recipients", _Recipients, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(255)> _
|
||||
<RuleRequiredField("OutlookEMail-Subject", DefaultContexts.Save)> _
|
||||
Property Subject As String
|
||||
Get
|
||||
Return _Subject
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Subject", _Subject, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)> _
|
||||
Property HTMLBody As String
|
||||
Get
|
||||
Return _HTMLBody
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("HTMLBody", _HTMLBody, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(255), Browsable(False)> _
|
||||
Property EntryID As String
|
||||
Get
|
||||
Return _EntryID
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("EntryID", _EntryID, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> _
|
||||
Property ObjectCreated As Date
|
||||
Get
|
||||
Return _ObjectCreated
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("ObjectCreated", _ObjectCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> _
|
||||
Property UserCreated As User
|
||||
Get
|
||||
Return _UserCreated
|
||||
End Get
|
||||
Set(value As User)
|
||||
SetPropertyValue("UserCreated", _UserCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
Public Property OwnerUser As User
|
||||
Get
|
||||
Return _OwnerUser
|
||||
End Get
|
||||
Set(value As User)
|
||||
SetPropertyValue("OwnerUser", _OwnerUser, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CRM_Leads As CRM_Leads
|
||||
Get
|
||||
Return _CRM_Leads
|
||||
End Get
|
||||
Set(value As CRM_Leads)
|
||||
SetPropertyValue("CRM_Leads", _CRM_Leads, value)
|
||||
End Set
|
||||
End Property
|
||||
Public Property CRM_Opportunities As CRM_Opportunities
|
||||
Get
|
||||
Return _CRM_Opportunities
|
||||
End Get
|
||||
Set(value As CRM_Opportunities)
|
||||
SetPropertyValue("CRM_Opportunities", _CRM_Opportunities, value)
|
||||
End Set
|
||||
End Property
|
||||
Public Property CRMEstate_Leads As CRMEstate_Leads
|
||||
Get
|
||||
Return _CRMEstate_Leads
|
||||
End Get
|
||||
Set(value As CRMEstate_Leads)
|
||||
SetPropertyValue("CRMEstate_Leads", _CRMEstate_Leads, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData()> _
|
||||
Public Property eCRMEstate_Leads As eCRMEstate_Leads
|
||||
Get
|
||||
Return _eCRMEstate_Leads
|
||||
End Get
|
||||
Set(value As eCRMEstate_Leads)
|
||||
SetPropertyValue("eCRMEstate_Leads", _eCRMEstate_Leads, value)
|
||||
End Set
|
||||
End Property
|
||||
<Browsable(False)> _
|
||||
<VisibleInListView(False)> _
|
||||
<VisibleInDetailView(False)> _
|
||||
Public Property OutlookEMailIn_Oid As String
|
||||
Get
|
||||
Return _OutlookEMailIn_Oid
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("OutlookEMailIn_Oid", _OutlookEMailIn_Oid, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'--- ReadOnly ----------
|
||||
<VisibleInListView(False)> _
|
||||
<Association("OutlookEMail-OutlookEMailAttachments", GetType(OutlookEMailAttachments))> _
|
||||
ReadOnly Property OutlookEMailAttachments As XPCollection(Of OutlookEMailAttachments)
|
||||
Get
|
||||
Return GetCollection(Of OutlookEMailAttachments)("OutlookEMailAttachments")
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'--- Sub---------------
|
||||
Public Sub SendMail(_OutlookEmail As OutlookEMail, _ObjectSpace As Xpo.XPObjectSpace, Optional _WithCommit As Boolean = False)
|
||||
Dim _OutlookApp As New Outlook.Application()
|
||||
Dim _OutlookNameSpace As Outlook.NameSpace
|
||||
Dim _FdMail As Outlook.MAPIFolder
|
||||
Dim _Mail_New As Outlook.MailItem = _OutlookApp.CreateItem(OlItemType.olMailItem)
|
||||
Dim _OutlookEMailAttachments As OutlookEMailAttachments
|
||||
Dim _FileStream As Stream
|
||||
Dim _FilePath As String
|
||||
|
||||
_OutlookNameSpace = _OutlookApp.GetNamespace("MAPI")
|
||||
_OutlookNameSpace.Logon(, , True, True)
|
||||
|
||||
_FdMail = _OutlookNameSpace.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderOutbox)
|
||||
|
||||
_Mail_New = _FdMail.Items.Add(Outlook.OlItemType.olMailItem)
|
||||
_Mail_New.Subject = _OutlookEmail.Subject
|
||||
_Mail_New.To = _OutlookEmail.Recipients
|
||||
_Mail_New.HTMLBody = _OutlookEmail.HTMLBody
|
||||
|
||||
If _OutlookEmail.OutlookEMailAttachments.Count > 0 Then
|
||||
For Each _OutlookEMailAttachments In _OutlookEmail.OutlookEMailAttachments
|
||||
_FilePath = Path.GetTempPath & _OutlookEMailAttachments.DocumentFileData.File.FileName
|
||||
_FileStream = New FileStream(_FilePath, FileMode.Create)
|
||||
|
||||
|
||||
_OutlookEMailAttachments.DocumentFileData.File.SaveToStream(_FileStream)
|
||||
|
||||
Dim _AttachFile As Outlook.Attachments = _Mail_New.Attachments
|
||||
Dim _Attach As Outlook.Attachment = _AttachFile.Add(_FilePath)
|
||||
|
||||
_FileStream.Close()
|
||||
If System.IO.File.Exists(_FilePath) Then
|
||||
System.IO.File.Delete(_FilePath)
|
||||
End If
|
||||
Next
|
||||
|
||||
End If
|
||||
|
||||
_Mail_New.Save()
|
||||
_OutlookEmail.EntryID = _Mail_New.EntryID
|
||||
_Mail_New.UnRead = True
|
||||
_Mail_New.Send()
|
||||
|
||||
If _WithCommit = True Then
|
||||
_OutlookEmail.Save()
|
||||
_ObjectSpace.CommitChanges()
|
||||
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user