Hallo zusammen!
<P>
Ich habe ein Testformular mit einem Button und 3 Textfeldern (Emailadresse, Betreffzeile, Textnachricht). Das Formular soll eine email an die angegebene emailadresse versenden. Der Button löst folgendes Mini Test-Sub aus:
<P>
Private Sub BtnSenden_Click() <BR>
Dim Str1 As String <BR>
Str1 = "Test" <BR>
TxtNachricht = "Hallo, dies ist ein .... " & Str1 <BR>
REM TxtNachricht = TxtNachricht <BR>
DoCmd.SendObject , , acFormatHTML, Txtemail, , , TxtBetreff, TxtNachricht, True <BR>
End Sub
<P>
Problem:<BR>
Nach Betätigen des Button wird eine email versendet. Das ist klasse! Wenn ich den Button nochmal drücke, wird nichts versendet.
<P>
Lösung:<BR>
Wenn man die auskommentierte Zeile ("TxtNachricht = TxtNachricht") wieder mit dazu nimmt, funktioniert die ganze Sache wie gewollt. Es wird jedesmal eine email versendet.
<P>
Frage:<BR>
Warum wird diese auskommentierte Zeile überhaupt benötigt? Ist das ein Bug?
<P>
Gruß,
Matthias (Rookie)
<P>
Ich habe ein Testformular mit einem Button und 3 Textfeldern (Emailadresse, Betreffzeile, Textnachricht). Das Formular soll eine email an die angegebene emailadresse versenden. Der Button löst folgendes Mini Test-Sub aus:
<P>
Private Sub BtnSenden_Click() <BR>
Dim Str1 As String <BR>
Str1 = "Test" <BR>
TxtNachricht = "Hallo, dies ist ein .... " & Str1 <BR>
REM TxtNachricht = TxtNachricht <BR>
DoCmd.SendObject , , acFormatHTML, Txtemail, , , TxtBetreff, TxtNachricht, True <BR>
End Sub
<P>
Problem:<BR>
Nach Betätigen des Button wird eine email versendet. Das ist klasse! Wenn ich den Button nochmal drücke, wird nichts versendet.
<P>
Lösung:<BR>
Wenn man die auskommentierte Zeile ("TxtNachricht = TxtNachricht") wieder mit dazu nimmt, funktioniert die ganze Sache wie gewollt. Es wird jedesmal eine email versendet.
<P>
Frage:<BR>
Warum wird diese auskommentierte Zeile überhaupt benötigt? Ist das ein Bug?
<P>
Gruß,
Matthias (Rookie)
Comment