5
Multipage aufrufen möglich?
In Multipage Textfeld aus Vorgabe füllen?
Hallo miteinander,
Ich bin mir nicht sicher, ob ich das Prinzip "MultiPage" schon verstanden habe, weshalb ich hier mit meinem "Wissen" mal zum allgemeinen Amüsement beitragen möchte...!
In Outlook sollen eingegangene Mails auf gewisse Parameter hin überprüft werden (Absender, Betreff...). Wenn die Prüfung negativ ausfällt, soll eine Eingangsbestätigung versendet werden.
Ich in einem UserForm eine Multipage vorgesehen (zumindest ist das der Plan...), die vier Seiten hat.
Wenn ich auf Seite 1 auf einen Button klicke soll ein Sub abgearbeitet werden und das Ergebnis der Abarbeitung in einem Textfeld auf Seite 2 des Multipages angezeigt werden.
Nach allem, was ich bis dato gelesen habe, ist mir ne Lösung dazu recht fern...
Eine Frgae ist, ob das überhaupt funktioniert.
Muss das Sub Teil des Formulars sein oder kann es auch in einem Modul sein?
Aktiuell ist es in einem Modul und der Code zum Füllen des Textfeldes sieht so aus:
Kann mir jemand weiter helfen? Bin ich irgendwo falsch abgebogen?
Danke schon jetzt.
Grüße,
Andreas
Ich bin mir nicht sicher, ob ich das Prinzip "MultiPage" schon verstanden habe, weshalb ich hier mit meinem "Wissen" mal zum allgemeinen Amüsement beitragen möchte...!
In Outlook sollen eingegangene Mails auf gewisse Parameter hin überprüft werden (Absender, Betreff...). Wenn die Prüfung negativ ausfällt, soll eine Eingangsbestätigung versendet werden.
Ich in einem UserForm eine Multipage vorgesehen (zumindest ist das der Plan...), die vier Seiten hat.
Wenn ich auf Seite 1 auf einen Button klicke soll ein Sub abgearbeitet werden und das Ergebnis der Abarbeitung in einem Textfeld auf Seite 2 des Multipages angezeigt werden.
Nach allem, was ich bis dato gelesen habe, ist mir ne Lösung dazu recht fern...
Eine Frgae ist, ob das überhaupt funktioniert.
Muss das Sub Teil des Formulars sein oder kann es auch in einem Modul sein?
Aktiuell ist es in einem Modul und der Code zum Füllen des Textfeldes sieht so aus:
With frmEingangsbestaetigungen01.MultiPage1.Page03Betreff
.TextBoxExceptZeichen.Text = _
strExceptSubject
End WithKann mir jemand weiter helfen? Bin ich irgendwo falsch abgebogen?
Danke schon jetzt.
Grüße,
Andreas
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 172587
Url: https://administrator.de/contentid/172587
Printed on: April 18, 2024 at 02:04 o'clock
5 Comments
Latest comment
Hallo,
die Multipage ist teil eines Formulars.
Du kannst aber das Sub in ein Modul legen und mit
Call Subname
aufrufen.
Dafür muss aber das Sub Public sein:
Public Sub [Name]
End Sub
Soll das Sub eh nur im Formular ausgeführt werden währe ein
Privat Sub [Name]
End Sub
im Formularquelltext besser.
Sind Zeile 01 - 04 des Codes in deinem Post der gesamte Code des Subs?
Denn wenn ja kopier den einfach in das Click-Ereignis.
Wenn du im Entwurfsmodus doppelt auf den Button klickst, wechselst du automatisch in denEditor und ein Click-Ereignis wird direkt erstellt, wenn noch nicht vorhanden.
MfG Steini
die Multipage ist teil eines Formulars.
Du kannst aber das Sub in ein Modul legen und mit
Call Subname
aufrufen.
Dafür muss aber das Sub Public sein:
Public Sub [Name]
End Sub
Soll das Sub eh nur im Formular ausgeführt werden währe ein
Privat Sub [Name]
End Sub
im Formularquelltext besser.
Sind Zeile 01 - 04 des Codes in deinem Post der gesamte Code des Subs?
Denn wenn ja kopier den einfach in das Click-Ereignis.
Wenn du im Entwurfsmodus doppelt auf den Button klickst, wechselst du automatisch in denEditor und ein Click-Ereignis wird direkt erstellt, wenn noch nicht vorhanden.
MfG Steini
Hallo Steini,
Danke für Deine Antwort.
Nur der Vollständigkeit halber vorab: Virtuosität und Eleganz sind nicht unbedingt meine Stärken beim POrogrammieren...
Das Formluar wird aus einem "Public Sub MAIN_LBStart()" heraus aufgerufen. Darin ist enthalten:
Das Formular enthält, wie erwähnt, mehrere Seiten einer MultiPage. Die Felder werden hier wie gewünscht gefüllt. Auf Seite 2 (Pages(0)) ist der Button, bei dessen Klick der Code
ausgeführt wird. Das aufgerufene "Public Sub LB_ExceptFuellenSubjectAuslesen01()" enthält unter anderem die oben stehenden Zeilen
Aus einem mir nicht ganz klaren Grund funktioniert die Übergabe der Daten beim Aufruf von MAIN_LBStart, beim Aufruf von LB_ExceptFuellenSubjectAuslesen01 aber eben nicht...
Sonnige Grüße,
Andreas
Danke für Deine Antwort.
Nur der Vollständigkeit halber vorab: Virtuosität und Eleganz sind nicht unbedingt meine Stärken beim POrogrammieren...
Das Formluar wird aus einem "Public Sub MAIN_LBStart()" heraus aufgerufen. Darin ist enthalten:
...
With frmEingangsbestaetigungenV01.MultiPage1.Pages(0)
.txtLetztBestAbsenderName.Text = _
lastBestaetigteMailSenderName
.txtLetztBestReceivedTime.Text = _
lastBestaetigteMailReceivedTime
.txtLetztBestSubject.Text = _
AuszuglastBestaetigteMailSubject
.txtBetreffMarkText.Text = _
EinstellungBestMailMarkierungText
.chkbxBestMailMarkieren.Value = _
EinstellungBestMailMarkieren
.optbutNormalBetrieb.Value = _
EinstellungFunktionsTestNorm
.optbutFunktionsTestMail.Value = _
EinstellungFunktionsTestMail
.optbutFunktionsTestTest.Value = _
EinstellungFunktionsTestTest
End With
With frmEingangsbestaetigungenV01
.StartUpPosition = 1
.Show vbModeless
End With
...Das Formular enthält, wie erwähnt, mehrere Seiten einer MultiPage. Die Felder werden hier wie gewünscht gefüllt. Auf Seite 2 (Pages(0)) ist der Button, bei dessen Klick der Code
Private Sub cmdExceptSubject_Click()
Call LB_ExceptFuellenSubjectAuslesen01
MultiPage1.Value = 1
End Subausgeführt wird. Das aufgerufene "Public Sub LB_ExceptFuellenSubjectAuslesen01()" enthält unter anderem die oben stehenden Zeilen
...
With frmEingangsbestaetigungen01.MultiPage1.Pages(1)
.TextBoxExceptZeichen.Text = _
strExceptSubject
End With
...Aus einem mir nicht ganz klaren Grund funktioniert die Übergabe der Daten beim Aufruf von MAIN_LBStart, beim Aufruf von LB_ExceptFuellenSubjectAuslesen01 aber eben nicht...
Sonnige Grüße,
Andreas
Hi,
im Sub MAIN_LBStart heisst dein Form frmEingangsbestaetigungenV01 und in LB_ExceptFuellenSubjectAuslesen01 frmEingangsbestaetigungen01
Muss das evtl. gleich lauten, da es sich doch um das selbe Formular handelt oder?
Aber eigentlich sollte eine Fehlermeldung erscheinen, wenn es das andere Formular nicht gibt.
Da ich sonst nur in Excel VBA benutzen kenn ich mich mit Outlook nich so gut aus.
Weist du strExceptSubject einen Wert zu oder ist das eine Systemvariable die Outlook selbst zuweist?
MfG Steini
im Sub MAIN_LBStart heisst dein Form frmEingangsbestaetigungenV01 und in LB_ExceptFuellenSubjectAuslesen01 frmEingangsbestaetigungen01
Muss das evtl. gleich lauten, da es sich doch um das selbe Formular handelt oder?
Aber eigentlich sollte eine Fehlermeldung erscheinen, wenn es das andere Formular nicht gibt.
Da ich sonst nur in Excel VBA benutzen kenn ich mich mit Outlook nich so gut aus.
Weist du strExceptSubject einen Wert zu oder ist das eine Systemvariable die Outlook selbst zuweist?
MfG Steini
Puuhhh... Das ist jetzt...
peinlich...
Der Vollständigkeit halber: In der Variablen strExceptSubject ist der Betreff der aktuell markierten Mail enthalten. Der wurde vorher bereits via
strExceptSubject = Outlook.MailItem.Subject
übergeben.
DANKE für Deine Zeit und Mühe!!!
peinlich...
Der Vollständigkeit halber: In der Variablen strExceptSubject ist der Betreff der aktuell markierten Mail enthalten. Der wurde vorher bereits via
strExceptSubject = Outlook.MailItem.Subject
übergeben.
DANKE für Deine Zeit und Mühe!!!
Bitte bitte 
Eingabefehler!
Ein Kommentar muss mehr als 30 Zeichen enthalten! Bitte geben Sie einen aussagefähigen Kommentar ein.
Eingabefehler!
Ein Kommentar muss mehr als 30 Zeichen enthalten! Bitte geben Sie einen aussagefähigen Kommentar ein.
