Office: (Office 2007) Kontrollkästchen im Endlosformular

Moin,
damit du was zu tun hast *biggrin.gif* :
Hier ist der Code aus dem von mir weiter oben verlinkten Forumsbeitrag, ohne Adresserstellung. An die Stelle mit !!! fügst du deinen Code ein.
Code:

Und denn mal ausprobieren.

Zusatzaufgabe *tongue.gif* : versuche den Code so zu organisieren, dass die Mail nur erstellt wird, wenn in strAdressen auch Adressen drin sind.

maike

 

Hallo Maike,

vielen vielen Dank. Der Code funktioniert soweit prima. Werde nun erstmal eine Tabelle für die Anhänge und die Texte erstellen um zu schauen ob man diese darüber steuern kann.
Dann werde ich mich an den String setzen.

Gruß

Daniel

 

So habe jetzt das Formular angepasst, so ist es möglich fast alle Einstellungen
auf dem Formular vorzunehmen. Leider hat das mit dem Anhang nicht funktioniert. Habe in dem Textfeld auf dem Formular probiert den Pfad anzugeben. Nur hat das leider nicht funktioniert.
Habe das Textfeld im Quellcode hinter dem Anhang angeben.

Dim objAnhang as Object

objAnhang = Me. Anhang

.Attachments.Add = Me.Anhang

Vllt fällt dir da was ein.
Die anderen beiden Felder Mail-Text und Betreff habe ich in den Quellcode eingefügt was prima funktioniert sodass die Sachen in die Mail übernommen werden.
Das Formular habe ich als Screenshot angehangen.

Gruß

Daniel

 

Was heißt denn das konkret? Konntest du nix reintippen? Oder wurde die Angabe vom Code nicht übernommen? Für das Attachment ist Pfad und Dateiname incl. Extension notwendig.
Das hier ist nicht richtig:
Code:

Für das Attachment anzufügen braucht es einen String, der Pfad und Dateiname.Extension beinhaltet. Probiers mal so:
Code:

maike

 

Hallo Maike,

Ich konnte zwar was eingeben, allerdings kam dann eine Fehlermeldung, dass das Objekt unzulassig ist.
Habe das jetzt so gemacht wie du das geschrieben hast. Habe allerdings den
debug.print Befehl weg gelassen. So klappt das sehr gut.

Kannst du mir erklären warum das ein String sein muss?

Gruß Daniel

PS: Ich kann dir gar nicht genug danken, das du mir so sehr hilfst.

 

Schon ok, das mit der Hilfe, dafür ist ja das Forum da. Außerdem mach ich das umso lieber, wenn jemand den Eindruck vermittelt, sich Mühe zu geben und lernen zu wollen *wink.gif* .
Der Debug.Print Befehl ist nur zur Kontrolle beim Probieren - da kannst du besser sehen, ob vielleicht ein Backslash fehlt in deinem Pfad oder ähnliches. Den kannst du also weglassen oder auskommentieren, wenn du ihn nicht (mehr) brauchst.
Ein String muss es an dieser Stelle sein, weil die Methode ".Attachments.Add" von Outlook hier einen solchen erwartet. Gibst du ihr statt dessen ein Objekt, dann plärrt sie *bawling .
Und, wie sieht es aus mit der Zusatzaufgabe? Ohne die gibt's kein Sternchen *grins .
maike

 

Ah ich verstehe. Ich dachte halt, das es "as Object" sein muss, da ich mich im Prinzip ja auf ein Objekt beziehe.

Die Zusatzaufgabe ist noch nicht gelöst. Irgendwo stand aber das man dafür vier Tage zeit hat *biggrin.gif*
So ein Sternchen kann man sich ja auch nicht über Nacht verdienen *Smilie
Morgen habe ich viel Zeit und werde mich da mal dran setzen.

Schönes We

Gruß

Daniel

 

Hallo,

so habe jetzt den Code so hinbekommen das er mir eine Meldung ausgibt,
wenn keine Adressen im String stehen und er mir auch keine Mail öffnet.
Der Code sieht wie folgt aus:

With Me.Recordset
Do Until .EOF
If .Fields("Senden") = True Then
strAdressen = strAdressen & ";" & .Fields("E-Mail-Adresse")
End If
.MoveNext Loop
End With

If strAdressen = "" Then
MsgBox "Keine Adressen"
Exit Sub
End If

Der anfang ist halt das der String erstellt wird. Dann folgt die Anweisung
was passieren soll wenn der String leer ist.
Hab ich mein Sternchen nun?

Gruß

Daniel

 

Ja. *wink.gif*
Ich würde es allerdings so mit in die If-Bedingung einbauen:
Code:

 

Dann bin ich ja zufrieden mit mir *Smilie
So sieht das vllt besser aus. Vorallem weil man sich dann eine IF-Anweisung sparen kann.
Damit wäre das Problem meiner DB dank deiner Hilfe gelöst. Vielen Dank nochmal. Werde bestimmt noch einige weitere Probleme hier posten.

Gruß

Daniel