Try
                MAPISession1.SignOn()
 
                With MAPIMessages1
                    .SessionID = MAPISession1.SessionID
                    .Compose()
                    .MsgSubject = "Betreff"
 
                    .RecipDisplayName = "yyy@yyy.de"
 
                    ' --- Space(1) ist als Platzhalter notwendig, da die
                    ' --- Anlage bei der ersten Leerstelle platziert wird.
                    .MsgNoteText = _
                        Space(1) & _
                        "Anbei erhalten Sie meine Bestellung für den " & _
                        Me.dtp_Bestelldatum.Value.Day & "." & _
                        Me.dtp_Bestelldatum.Value.Month & "." & _
                        Me.dtp_Bestelldatum.Value.Year
                    ' --- Datei als Anhang einfügen
                    System.Threading.Thread.Sleep(200)
                    .AttachmentIndex = 0
                    .AttachmentPosition = 0
                    .AttachmentName = "Bestellung.xml"
                    .AttachmentPathName = Application.StartupPath & "\temp.xml"
 
                    ' --- Mail für evt. Ergänzungen anzeigen
                    .Send(vDialog:=True)
                End With
                MAPISession1.SignOff()
            Catch ex As Exception
                MsgBox("Es trat ein Fehler auf beim versenden der Nachricht", _
                  MsgBoxStyle.Critical, "Fehler")
            End Try