Emailversand mit docmd.sendobject (Access 2000)

[matthias_aegon]

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)

[M Buch]

Hab da was gefunden was dir helfen müsste denn dir fehlen noch declarationen
<PRE>
Private Sub Versand_Click()
On Error GoTo Proc_Err
Dim DB As DAO.Database
Dim RS As DAO.Recordset, rs2 As DAO.Recordset
Dim FTexte
Dim Mailadr As String
Dim myolApp As Object
Dim myitem
Dim strdatei As String
Set DB = CurrentDb

Set myolApp = CreateObject("Outlook.Application")

'Anhang
strdatei = "C:\msdos.sys"

Set RS = DB.OpenRecordset("tblAdressen")
RS.MoveLast
If RS.RecordCount >= 1 Then
RS.MoveFirst
Do While Not RS.EOF
Mailadr = RS!Email
FTexte = DLookup("Brieftext", "tblTexte")
Set myitem = myolApp.CreateItem(0)
myitem.Recipients.Add RS!Email
myitem.Subject = DLookup("Briefheader", "tblTexte")
myitem.Body = RS!Anredekürzel & " " & RS!PName & "," & vbCrLf & vbCrLf & DLookup("Brieftext", "tblTexte") & vbCrLf & vbCrLf
myitem.Attachments.Add strdatei
If Me.Vorschau = True Then
myitem.Display
Else
myitem.Send
End If
RS.MoveNext
Loop
Else
Beep
MsgBox "Meldung: Es wurden keine Daten zum Email-Versand gefunden, welche Ihrer Selektion entsporechen!", vbInformation, "Outlook-Versand"
End If
Exit Sub

Proc_Err:
If Err.Number = 287 Then
Exit Sub
Else
MsgBox "Meldung: " & Err.Number & " " & Err.Description
Resume Next
End If
End Sub
</PRE&gt