Otobragenie Spiska Adresov

  • Автор темы Olga23
  • Дата начала
Статус
Закрыто для дальнейших ответов.
O

Olga23

Гость
#1
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

Что это ? :)
Lotus team
10.12.2004
3 346
2
36
Россия, Калуга
#2
Мало информации.

<!--QuoteBegin-Olga23+15:11:2005, 17:11 -->
<span class="vbquote">(Olga23 @ 15:11:2005, 17:11 )</span><!--QuoteEBegin-->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.

<!--QuoteBegin-Olga23+15:11:2005, 17:11 -->
<span class="vbquote">(Olga23 @ 15:11:2005, 17:11 )</span><!--QuoteEBegin-->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 ?
Человек - отдельный документ ?
 
G

Guest

Гость
#3
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

Что это ? :)
Lotus team
10.12.2004
3 346
2
36
Россия, Калуга
#4
В документе человека надо сделать поле, где будет хранится информация о посылке письма (например, поле с датой посылки емайла).
Тогда в представлении добавляешь колонку и ставишь у него свойство "Display values as icons" (почитай в хелпе для подробностей).
 
O

Olga23

Гость
#5
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?
 
O

Olga23

Гость
#6
V dokumente cheloveka ya sozdala novoe pole tipa data...A kak teper sdelat ego datoy otpravleniya iz drugoj formi???
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
2
36
Россия, Калуга
#7
Для: Olga23
Приведи еще код CheckMailList. :(

<!--QuoteBegin-Olga23+16:11:2005, 12:18 -->
<span class="vbquote">(Olga23 @ 16:11:2005, 12:18 )</span><!--QuoteEBegin-->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). Но для это надо посмотреть на функцию поиска.
 
O

Olga23

Гость
#8
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

Что это ? :)
Lotus team
10.12.2004
3 346
2
36
Россия, Калуга
#9
<!--QuoteBegin-Olga23+16:11:2005, 12:30 -->
<span class="vbquote">(Olga23 @ 16:11:2005, 12:30 )</span><!--QuoteEBegin-->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]

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

Olga23

Гость
#11
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

Что это ? :)
Lotus team
10.12.2004
3 346
2
36
Россия, Калуга
#12
Для: Olga23
У тебя должна быть какая-то связь. Например, документ человека - это респонс к документу фирмы. Тогда мы легко можем получить список людей для каждой фирмы.
Или у документа человека имеется поле с уникальным именем фирмы. Тогда мы тоже легко сможем найти фирму.
 
O

Olga23

Гость
#13
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...
 
O

Olga23

Гость
#15
kod ochen bolshoj :P
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? :(
 
O

Olga23

Гость
#17
Prosti za glupiy vopros no gde etot skript primenyat?V Pole ya etot skript primenit ne mogu,t.k tam tolko formuli ispolzujutsya :(
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
2
36
Россия, Калуга
#18
Для: 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
 
O

Olga23

Гость
#20
ya perestavila etu stroku iz CheckMailList v test....Seycgas vidaetsya okoshko,no vmesto adresov poka ziferki i bukvi
 
Статус
Закрыто для дальнейших ответов.