OpenOffice.info

Hallo,
ich habe mir aus dem Forum hier folgendes Script "gemopst":
sub SendMail
Dim oDoc, oForm as Object
Dim betr, sMail_Adr as String
oDoc = thisComponent
oForm = oDoc.drawpage.forms.getbyindex(0)
sMail_Adr = oForm.getByName("Mailadresse").Text

if sMail_Adr = "" then
msgbox "Keine ...

Servus F3K Total,
zuallererst mal 1000 Dank dir und deiner Hilfsbereitschaft! Das ist ein Hammer!

Ich habe mir dein Beispiel natürlich angesehen und bin begeistert!

Eine kleine Schwäche hat deine Lösung, glaub ich... Nämlich wenn sich die Gruppenzugehörigkeit einer Adresse ändert. Wächst ein ...

Hallo F3K Total,

danke dir! Das ist absolut klasse!! Ich hab jetzt mal noch ein bisschen weiter gesponnen...

Man stelle sich vor, es gäbe nicht nur ein Mailing, sondern mehrere, z.B. monatlich. Diese stehen in einer eigenen Tabelle "Mailings" und werden in der (eigenen) Tabelle (bzw. Formular ...

Hallo Forum,
ich habe mir aus einem anderen Forums-Beitrag ein Makro "geklaut":

Sub FilterAn ' Filter für Name anschalten
Dim sFilter
Dim oForm As Object
oForm = ThisComponent.DrawPage.Forms.getByName("MainForm")
sFilter = oForm.getByName("txtSuche").text
oForm.Filter = "Priorität ...