Ljudi dobrie pomogite, pogalujsta!!!U menya est View,v kotorom 2 stolbza kategorizirovanni.Pervij-eto imja firmi, 2-eto gorod, v kotorom firma nahoditsya(inogda u odnoj firmi stoit 2 ili 3 goroda)...Mne nugno pod dorodom kagdoj firmi,na ktoruju bil poslan E-mail vivesti znachok, govoryaschi,chto e-mail bil poslamn...
Kokda u menya bil tolko stolbez s imenem Firmi(kategorozirovannij) to tekst bil:
@Trim(@If(@IsAvailable(MailsInfo); @Left(MailsInfo;"|");Name1_T : AliasName_T))
Funkzija iz biblioteki skriptov:
Function SetVarFields( cdoc As NotesDocument, mdoc As NotesDocument ) As String
Dim newrtitem As NotesRichtextItem
Dim textrtitem As NotesRichtextItem
mail.SendTo = cdoc.EMail_T
Call mail.RemoveItem( "Body" )
Set newrtitem = mail.Createrichtextitem( "Body" )
Set textrtitem = mdoc.Getfirstitem( "Body" )
Call newrtitem.Appendtext( cdoc.LetterSalutation_T(0) )
Call newrtitem.Addnewline(2)
Call newrtitem.Appendrtitem( textrtitem )
SetVarFields=cdoc.Name1_T(0)+"|"+mail.SendTo(0)
End Function
Vse rabotalo...No seychas mne nugno vivesti vsju etu infu pod Gorodom...
No poka toka ya vigu eto v samom konze spiska imen Firm pod"Ne kategorozirovano", dalshe idet imya kagdoy firmi na kotoruju bil poslan e-mail i pod nim to chto mne nugno...No eto ne to...
Seychas vse hozyajstvo viglyadit tak:
Stolbez "Imya Firmi":
@Trim(Name1_T : AliasName_T)
Stolbez Gorod:
@Trim(@If(@IsAvailable(MailsInfo); @Left(MailsInfo;"|");City_T))
Funkzija:
Function SetVarFields( cdoc As NotesDocument, mdoc As NotesDocument ) As String
Dim newrtitem As NotesRichtextItem
Dim textrtitem As NotesRichtextItem
mail.SendTo = cdoc.EMail_T
Call mail.RemoveItem( "Body" )
Set newrtitem = mail.Createrichtextitem( "Body" )
Set textrtitem = mdoc.Getfirstitem( "Body" )
Call newrtitem.Appendtext( cdoc.LetterSalutation_T(0) )
Call newrtitem.Addnewline(2)
Call newrtitem.Appendrtitem( textrtitem )
SetVarFields=cdoc.City_T(0)+"|"+cdoc.Name1_T(0)+"|"+mail.SendTo(0)
End Function
City_T-eto gorod (pole iz formi Firmi)
Pogalujsta pomogite....
Kokda u menya bil tolko stolbez s imenem Firmi(kategorozirovannij) to tekst bil:
@Trim(@If(@IsAvailable(MailsInfo); @Left(MailsInfo;"|");Name1_T : AliasName_T))
Funkzija iz biblioteki skriptov:
Function SetVarFields( cdoc As NotesDocument, mdoc As NotesDocument ) As String
Dim newrtitem As NotesRichtextItem
Dim textrtitem As NotesRichtextItem
mail.SendTo = cdoc.EMail_T
Call mail.RemoveItem( "Body" )
Set newrtitem = mail.Createrichtextitem( "Body" )
Set textrtitem = mdoc.Getfirstitem( "Body" )
Call newrtitem.Appendtext( cdoc.LetterSalutation_T(0) )
Call newrtitem.Addnewline(2)
Call newrtitem.Appendrtitem( textrtitem )
SetVarFields=cdoc.Name1_T(0)+"|"+mail.SendTo(0)
End Function
Vse rabotalo...No seychas mne nugno vivesti vsju etu infu pod Gorodom...
No poka toka ya vigu eto v samom konze spiska imen Firm pod"Ne kategorozirovano", dalshe idet imya kagdoy firmi na kotoruju bil poslan e-mail i pod nim to chto mne nugno...No eto ne to...
Seychas vse hozyajstvo viglyadit tak:
Stolbez "Imya Firmi":
@Trim(Name1_T : AliasName_T)
Stolbez Gorod:
@Trim(@If(@IsAvailable(MailsInfo); @Left(MailsInfo;"|");City_T))
Funkzija:
Function SetVarFields( cdoc As NotesDocument, mdoc As NotesDocument ) As String
Dim newrtitem As NotesRichtextItem
Dim textrtitem As NotesRichtextItem
mail.SendTo = cdoc.EMail_T
Call mail.RemoveItem( "Body" )
Set newrtitem = mail.Createrichtextitem( "Body" )
Set textrtitem = mdoc.Getfirstitem( "Body" )
Call newrtitem.Appendtext( cdoc.LetterSalutation_T(0) )
Call newrtitem.Addnewline(2)
Call newrtitem.Appendrtitem( textrtitem )
SetVarFields=cdoc.City_T(0)+"|"+cdoc.Name1_T(0)+"|"+mail.SendTo(0)
End Function
City_T-eto gorod (pole iz formi Firmi)
Pogalujsta pomogite....
