combit Relationship Manager - Objekt-Referenz - combit GmbH
combit Relationship Manager - Objekt-Referenz - combit GmbH combit Relationship Manager - Objekt-Referenz - combit GmbH
FAQ VBScript Beispiele ' Objekte freigeben Set oRecord = Nothing Set oRecordSet = Nothing ' Aktive Ansicht aktualisieren oActiveView.Update Set oActiveView = Nothing Set oActiveViews = Nothing Set oProject = Nothing 8.1.14 Einfügen einer vom eMail Autopilot erkannten eMail in den cRM Dokumentcontainer (AutoPilot.vbs) Option Explicit ' Name der konfigurierten Ansicht Const sView = "Personen" Const sDocView = "Dokumente" ' eMail Autopilot Objekte Dim oMail Set oMail = HostApp.Mail Dim sMailSender, sMailBody, sMailSubject sMailSender = oMail.SenderAddressResolved ' Absender sMailBody = oMail.BodyMessage ' Nachrichtentext sMailSubject = oMail.Subject ' Betreff ' Scripting File Objekt Dim fso, stmpFileName Set fso = CreateObject("Scripting.FileSystemObject") stmpFileName = fso.getspecialfolder(2) & "\x.eml" ' Ablage in den Temp Ordner Dim oProject, oListViewConfigs Set oProject = cRM.CurrentProject 138
FAQ VBScript Beispiele Set oListViewConfigs = oProject.ViewConfigs Dim oViewConfig Set oViewConfig = oListViewConfigs.ItemByName(CStr(sView)) ' Nach der eMail Adresse suchen Dim bFilter, sFilter sFilter = "upper(""PERSONEN"".""eMail"") = upper('"& sMailSender &"')" Dim oRecordSet, oRecord Set oRecordSet = oViewConfig.CreateRecordSet ' Nach der eMail Adresse filtern oRecordSet.SetFilter("") bFilter = oRecordSet.SetFilter(sFilter) If bFilter = True Then ' Überhaupt Treffer vorhanden If oRecordSet.MoveFirst Then ' Ersten gefundenen Treffer verwenden Set oRecord = oRecordSet.CurrentRecord ' Relationsobjekt erzeugen Dim oListRelations Set oListRelations = oViewConfig.Relations Dim i, sRelationAliasName, oRelation For i = 1 To oListRelations.Count Set oRelation = oListRelations.Item(i) sRelationAliasName = oRelation.Alias 139
- Seite 87 und 88: Objekt-Referenz User Objekt Fax, re
- Seite 89 und 90: Objekt-Referenz Users Objekt Title,
- Seite 91 und 92: Objekt-Referenz View Objekt Typ: Bo
- Seite 93 und 94: Objekt-Referenz View Objekt 2 = Bei
- Seite 95 und 96: Objekt-Referenz ViewConfig Objekt T
- Seite 97 und 98: Objekt-Referenz ViewConfig Objekt R
- Seite 99 und 100: Objekt-Referenz ViewConfig Objekt 1
- Seite 101 und 102: Objekt-Referenz WScript Objekt Typ:
- Seite 103 und 104: Objekt-Referenz WScript Objekt Rüc
- Seite 105 und 106: Menü-IDs des cRM WScript Objekt 3
- Seite 107 und 108: Menü-IDs des cRM WScript Objekt sc
- Seite 109 und 110: Menü-IDs des cRM WScript Objekt Ko
- Seite 111 und 112: Ereignisse Event Objekt Data Beschr
- Seite 113 und 114: Ereignisse Ansichtenspezifische Ere
- Seite 115 und 116: eMail Autopilot Attachment Objekt 5
- Seite 117 und 118: eMail Autopilot HostApp Objekt Vers
- Seite 119 und 120: eMail Autopilot Mail Objekt Sender
- Seite 121 und 122: Änderungen und Neuerungen in der V
- Seite 123 und 124: Webansicht Dynamische Inhalte in HT
- Seite 125 und 126: FAQ VBScript Beispiele 8 FAQ Im nac
- Seite 127 und 128: FAQ VBScript Beispiele ' Objekte fr
- Seite 129 und 130: FAQ VBScript Beispiele ' Neuen Date
- Seite 131 und 132: FAQ VBScript Beispiele Else MsgBox
- Seite 133 und 134: FAQ VBScript Beispiele ' wird ausge
- Seite 135 und 136: FAQ VBScript Beispiele ' Objekte fr
- Seite 137: FAQ VBScript Beispiele Set oProject
- Seite 141 und 142: FAQ VBScript Beispiele Else HostApp
- Seite 143: combit Knowledgebase VBScript Beisp
FAQ<br />
VBScript Beispiele<br />
Set oListViewConfigs = oProject.ViewConfigs<br />
Dim oViewConfig<br />
Set oViewConfig = oListViewConfigs.ItemByName(CStr(sView))<br />
' Nach der eMail Adresse suchen<br />
Dim bFilter, sFilter<br />
sFilter = "upper(""PERSONEN"".""eMail"") = upper('"& sMailSender &"')"<br />
Dim oRecordSet, oRecord<br />
Set oRecordSet = oViewConfig.CreateRecordSet<br />
' Nach der eMail Adresse filtern<br />
oRecordSet.SetFilter("")<br />
bFilter = oRecordSet.SetFilter(sFilter)<br />
If bFilter = True Then<br />
' Überhaupt Treffer vorhanden<br />
If oRecordSet.MoveFirst Then<br />
' Ersten gefundenen Treffer verwenden<br />
Set oRecord = oRecordSet.CurrentRecord<br />
' Relationsobjekt erzeugen<br />
Dim oListRelations<br />
Set oListRelations = oViewConfig.Relations<br />
Dim i, sRelationAliasName, oRelation<br />
For i = 1 To oListRelations.Count<br />
Set oRelation = oListRelations.Item(i)<br />
sRelationAliasName = oRelation.Alias<br />
139