Otobragenie Spiska Adresov

Olga23 · 15.11.2005

ljudi podskagite pliz,a to ya ug ne znayu chto i delat...U menya est forma, gde est kriterii:mogno vibrat yavlyaetsya li firma klientom,konkurentom i t.p.
Kogda v zavisimosti ot vibora, posilaetsya e-mail kagdomu sotrudniku firmi.
V forme est deystvie "test", kotorij ischet eti adresa i vidayet skolko nashel(chislo)...Teper mne bi hotelos sdelat tak, chtobi ya videla kakie! adresa nashlis...Kak eto napisat?
I eshe toge s tem ge, mne nado otobrazit vo View znachok dlya kagogo cheloveka iz Firm,kotorim poslalsya etot e-mail.A kak eto sdelat....??

Medevic · 15.11.2005

Мало информации.


(Olga23 @ 15:11:2005, 17:11 )V forme est deystvie "test", kotorij ischet eti adresa i vidayet skolko nashel(chislo)...Teper mne bi hotelos sdelat tak, chtobi ya videla kakie! adresa nashlis...Kak eto napisat?

[snapback]27115" rel="nofollow" target="_blank[/snapback]

[/quote]
Приведи код кнопочки test.


(Olga23 @ 15:11:2005, 17:11 )I eshe toge s tem ge, mne nado otobrazit vo View znachok dlya kagogo cheloveka iz Firm,kotorim poslalsya etot e-mail.A kak eto sdelat....??

[snapback]27115" rel="nofollow" target="_blank[/snapback]

[/quote]
Где хранятся данные о том, что человеку был послан e-mail ?
Человек - отдельный документ ?

Guest · 16.11.2005

chelovek eto otdelnij dokument, dannie o tom,chto poslan e-mail nigde poka ne hranyatsya...Tolko est pole skolkim chelovekam bil poslan e-mail...A kod privedu pozge,ne mogu otkrit bazu v dizaynere....Problemi s setju

Medevic · 16.11.2005

В документе человека надо сделать поле, где будет хранится информация о посылке письма (например, поле с датой посылки емайла).
Тогда в представлении добавляешь колонку и ставишь у него свойство "Display values as icons" (почитай в хелпе для подробностей).

Olga23 · 16.11.2005

ponyatno seychas poprobiju...A naschet koda, to vot:
Sub Click(Source As Button)
Set ws = New NotesUIWorkspace
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
If CheckCrit( uidoc ) Then Call CheckMailList( doc, True )
End Sub

Kak dumaesh,kak luchshe pokazat spisok Adresov tut:kak View ili chto-to eshe?

Olga23 · 16.11.2005

V dokumente cheloveka ya sozdala novoe pole tipa data...A kak teper sdelat ego datoy otpravleniya iz drugoj formi???

Medevic · 16.11.2005

Для: Olga23
Приведи еще код CheckMailList.

(Olga23 @ 16:11:2005, 12:18 )Kak dumaesh,kak luchshe pokazat spisok Adresov tut:kak View ili chto-to eshe?

[snapback]27156" rel="nofollow" target="_blank[/snapback]

[/quote]
Я бы сделал вывод списка через DialogBox (т.е. вызвал форму, а в ней встроенное представление со свойством Show Single Category). Но для это надо посмотреть на функцию поиска.

Olga23 · 16.11.2005

Function CheckCrit( uidoc As NotesUIDocument ) As Integer
Const ErrHeader = "Fehlende Daten"
Const ErrNoIsCustomer = "Bitte wählen Sie mindestens eine Gruppe von Adressen in der ersten Zeile aus."
Const ErrNoCoise = |Sie haben "Kunden-Kennzeichen" ausgewählt, aber keine Daten ausgewählt.|
Const ErrNoProfil = |Sie haben "Kundenprofil" ausgewählt, aber keine Daten ausgewählt.|
Const ErrNoCategory = |Sie haben "Priorität" ausgewählt, aber keine Daten ausgewählt.|
Const ErrNoCountry = |Sie haben "Länder" ausgewählt, aber keine Daten ausgewählt.|
Const ErrNoZip = |Sie haben "PLZ beginnt mit" ausgewählt, aber keine Daten eingegeben.|
Const ErrNoEmploy = |Sie haben "Mitarbeiter" ausgewählt, aber keine Daten eingegeben.|
Const ErrNoTurnover = |Sie haben "Umsatz" ausgewählt, aber keine Daten ausgewählt.|
Const ErrNoCreateDate = |Sie haben "Änderungsdatum" ausgewählt, aber keine Daten eingegeben|
Const ErrNoChangeDate = |Sie haben "Erstellungsdatum" ausgewählt, aber keine Daten eingegeben|
Const ErrNoPCoise = |Sie haben "Personen-Kennzeichen" ausgewählt, aber keine Daten ausgewählt.|
Const ErrNoPJobtitle = |Sie haben "Position" ausgewählt, aber keine Daten ausgewählt.|
Dim doc As NotesDocument
Set doc = uidoc.Document

CheckCrit = False
If doc.IsCustomer_K(0) = "" Then Messagebox ErrNoIsCustomer, 16, ErrHeader : Call SetTable( "MainData" ) : uidoc.Gotofield("IsCustomer_K") : Exit Function
If doc.Coise_K(0) = "" And doc.CritCustSign_K(0) = "1" Then Messagebox ErrNoCoise, 16, ErrHeader : Call SetTable( "MainData" ) : uidoc.Gotofield("Coise_K") : Exit Function
If doc.Profil_K(0) = "" And doc.CritCustProfil_K(0) = "1"Then Messagebox ErrNoProfil, 16, ErrHeader : Call SetTable( "MainData" ) : uidoc.Gotofield("Profil_K") : Exit Function
If doc.Category_K(0) = "" And doc.CritCustPrior_K(0) = "1"Then Messagebox ErrNoCategory, 16, ErrHeader : Call SetTable( "MainData" ) : uidoc.Gotofield("Category_K") : Exit Function
If doc.Country_T(0) = "" And doc.CritCustCountry_K(0) = "1"Then Messagebox ErrNoCountry, 16, ErrHeader : Call SetTable( "MainData" ) : uidoc.Gotofield("Country_T") : Exit Function
If doc.Zip_T(0) = "" And doc.CritCustZip_K(0) = "1"Then Messagebox ErrNoZip, 16, ErrHeader : Call SetTable( "MainData" ) : uidoc.Gotofield("Zip_T") : Exit Function
If doc.Employ_N(0) = "" And doc.CritCustEmploy_K(0) = "1"Then Messagebox ErrNoEmploy, 16, ErrHeader : Call SetTable( "MainData" ) : uidoc.Gotofield("Employ_N") : Exit Function
If doc.Turnover_K(0) = "" And doc.CritCustTurnover_K(0) = "1"Then Messagebox ErrNoTurnover, 16, ErrHeader : Call SetTable( "MainData" ) : uidoc.Gotofield("Turnover_K") : Exit Function
If doc.CreateStart_D(0) = "" And doc.CritCustCreat_K(0) = "1"Then Messagebox ErrNoCreateDate, 16, ErrHeader : Call SetTable( "MainData" ) : uidoc.Gotofield("CreateStart_D") : Exit Function
If doc.CreateEnd_D(0) = "" And doc.CritCustCreat_K(0) = "1"Then Messagebox ErrNoCreateDate, 16, ErrHeader : Call SetTable( "MainData" ) : uidoc.Gotofield("CreateEnd_D") : Exit Function
If doc.ChangeStart_D(0) = "" And doc.CritCustChang_K(0) = "1"Then Messagebox ErrNoChangeDate, 16, ErrHeader : Call SetTable( "MainData" ) : uidoc.Gotofield("ChangeStart_D") : Exit Function
If doc.ChangeEnd_D(0) = "" And doc.CritCustChang_K(0) = "1"Then Messagebox ErrNoChangeDate, 16, ErrHeader : Call SetTable( "MainData" ) : uidoc.Gotofield("ChangeEnd_D") : Exit Function
If doc.PCoise_K(0) = "" And doc.CritPersSign_K(0) = "1" Then Messagebox ErrNoPCoise, 16, ErrHeader : Call SetTable( "MainData" ) : uidoc.Gotofield("PCoise_K") : Exit Function
If doc.PCategory_K(0) = "" And doc.CritPersPrior_K(0) = "1"Then Messagebox ErrNoCategory, 16, ErrHeader : Call SetTable( "MainData" ) : uidoc.Gotofield("PCategory_K") : Exit Function
If doc.PJobtitle_T(0) = "" And doc.CritPersPrior_K(0) = "1"Then Messagebox ErrNoPJobtitle, 16, ErrHeader : Call SetTable( "MainData" ) : uidoc.Gotofield("PJobtitle_T") : Exit Function
' Call doc.save( True, False )
CheckCrit = True
End Function

I check MailList:

Sub CheckMailList( mdoc As NotesDocument, OnlyEMail As Integer )
AdressIDList = SetAdressArray( mdoc, OnlyEMail )
If Isempty( AdressIDList ) Then
Messagebox NoDocuments, 0, MsgHeader
Else
Messagebox Cstr( Ubound( AdressIDList ) + 1 ) + DocumentsFound, 0, MsgHeader
End If
End Sub

Medevic · 16.11.2005

(Olga23 @ 16:11:2005, 12:30 )V dokumente cheloveka ya sozdala novoe pole tipa data...A kak teper sdelat ego datoy otpravleniya iz drugoj formi???

[snapback]27159" rel="nofollow" target="_blank[/snapback]

[/quote]

Как у тебя связаны документ человека с документом фирмы ?

Olga23 · 16.11.2005

U nekotorih poley v svojstvah:Vichislyaemoe pri sostavlenii

Olga23 · 16.11.2005

Seyhas ya sozdala 2 novih polya:Kto poslal i datu otpravleniya..No ne poluchaetsya ih svyazat s formoj iz kotoroy otpravlyaju e-maili...I kak mne otobrazit ljudej kotorim otpravila?Moget ti mne kriterij vibora podskagesh?Yaprobovala delattak:
napisala,esli forma = forme otpravleniya i pole SendTo(spisok adresov) !=""--->Pokazivat...No ne to eto...Pliz pomogite, a to proekt gorit...

Medevic · 16.11.2005

Для: Olga23
У тебя должна быть какая-то связь. Например, документ человека - это респонс к документу фирмы. Тогда мы легко можем получить список людей для каждой фирмы.
Или у документа человека имеется поле с уникальным именем фирмы. Тогда мы тоже легко сможем найти фирму.

Olga23 · 16.11.2005

Forma iz kotoroj posilaem emaili, kriteriem vibora yavlyaetsya pole, kotoroe v dokumentew Firmi redaktiruemoe, ono ge v dokumente cheloveka Vichislyaemoe pri sostavlenii....A pro svyazi,kotorie pro kotorie ti skazal...Ya ne znayu..Gde eto smotret...Esli v svojstvah formi,to tam nichego net...

Etu bazu ne ya delala....Seychas vot i prihoditsya plavat...

Medevic · 16.11.2005

Для: Olga23
Хотя бы скажи, как создаются документы человеков.

Т.е. код покажи.

Olga23 · 16.11.2005

kod ochen bolshoj

No ya tut koe-chto novoe nashla...Eti Adresa,kotorie nahodyatsya, hranyatsya v massive AdressIDList:

Sub CheckMailList( mdoc As NotesDocument, OnlyEMail As Integer )
AdressIDList = SetAdressArray( mdoc, OnlyEMail )
If Isempty( AdressIDList ) Then
Messagebox NoDocuments, 0, MsgHeader
Else
Messagebox Cstr( Ubound( AdressIDList ) + 1 ) + DocumentsFound, 0, MsgHeader
End If
End Sub

Teper problema:nemogu nayti v Help kak massiv pokazat...A otdelniy View delat ne hochu,t.k.forma zakroetsyai poyavitsya etot View...A dannie ne zapomnyatsya...Chto skagesh?

Medevic · 16.11.2005

Можно показать через NotesUIWorkspace.Prompt.
Т.е.

Код:

Dim ws As New NotesUIWorkspace
...
Call ws.Prompt(PROMPT_OKCANCELLISTMULT, "", "", "", AdressIDList)

Olga23 · 16.11.2005

Prosti za glupiy vopros no gde etot skript primenyat?V Pole ya etot skript primenit ne mogu,t.k tam tolko formuli ispolzujutsya

Medevic · 16.11.2005

Для: Olga23
Вставляешь в функцию CheckMailList.

Код:

Sub CheckMailList( mdoc As NotesDocument, OnlyEMail As Integer )
Dim ws As New NotesUIWorkspace
AdressIDList = SetAdressArray( mdoc, OnlyEMail )
If Isempty( AdressIDList ) Then
Messagebox NoDocuments, 0, MsgHeader
Else
Messagebox Cstr( Ubound( AdressIDList ) + 1 ) + DocumentsFound, 0, MsgHeader
Call ws.Prompt(PROMPT_OKCANCELLISTMULT, "", "", "", AdressIDList)
End If
End Sub

Olga23 · 16.11.2005

vidaetsya oshibka

bject variable not set...

Olga23 · 16.11.2005

ya perestavila etu stroku iz CheckMailList v test....Seycgas vidaetsya okoshko,no vmesto adresov poka ziferki i bukvi

Все сервисы Codeby

Поиск

Поиск

Otobragenie Spiska Adresov

Olga23

Medevic

Что это ? :)

Guest

Medevic

Что это ? :)

Olga23

Olga23

Medevic

Что это ? :)

Olga23

Medevic

Что это ? :)

Olga23

Olga23

Medevic

Что это ? :)

Olga23

Medevic

Что это ? :)

Olga23

Medevic

Что это ? :)

Olga23

Medevic

Что это ? :)

Olga23

Olga23