Hallo,
Ich habe mit AC 2003 den Mailversand mit Outlook automatisiert, der einzige Fehler ist nur noch der Zeilenumbruch im Text der Mail.
Ich habe jetzt im Teil „Body“ den Zeilenumbruch so festgelegt:
"Hello dear friend, " & vbCrLf & vbCrLf & _
Trotzdem ist in der Mail alles hintereinander im Texfeld und es sieht unmöglich aus!
Wie kann man einen Zeilenumbruch erzwingen??
Danke Harald
Hallo,
Ich habe jetzt im Teil „Body“ den Zeilenumbruch so festgelegt:
"Hello dear friend, " & vbCrLf & vbCrLf & _
das sieht auf den ersten Blick richtig aus. Allerdings solltest Du den gesamten Code posten, damit man sieht, wo dieses Fragment einer Codezeile eingebaut ist.
Hier der gesamte Code (aus dem Internet übernommen und geändert), den Text habe ich geändert, die E-Mail Empfänger kommen aus einer Abfrage:
Function Senden_Html()
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim Betreff As String: Betreff = „Reinigung PKW“
Dim Nachricht As String, An As String, ATT1, ATT2
Dim db As Database, rs As Recordset
'Mailobjekt erstellen
Set objOutlook = CreateObject(„Outlook.Application“)
Set objOutlookMsg = objOutlook.CreateItem(0)
'Tabelle „Verteiler“ auslesen.
Set db = CurrentDb
Set rs = db.OpenRecordset(„1_e_mail_senden“, dbOpenDynaset)
DoCmd.Echo True
If rs.EOF Then MsgBox „Keine Empfänger im Verteiler“, vbExclamation: GoTo Ex
With objOutlookMsg
'Durch alle Empfänger
Do While Not rs.EOF
An = Nz(rs!Name_1, „“)
If An „“ Then .Recipients.Add An
rs.MoveNext
Loop
'Inhalt des Mails festlegen
.Importance = 0 ’ niedrige priorität
.Subject = Betreff
.HTMLBody = „Sehr geehrte Frau Kollegin, Sehr geehrter Herr Kollege,“ & vbNewLine & vbNewLine & _
„Text, Text, Text, Text, Text, Text, Text, Text, Text, Text, Text, Text, Text, Text, Text, Text, Text, Text, Text, Text, Text, Text“ & vbNewLine & vbNewLine & _
„Text, Text, Text, Text, Text, Text, Text, Text, Text, Text, Text, Text, Text, Text, Text, Text, Text, Text, Text, Text, Text, Text“ & vbNewLine & vbNewLine & _
"C:*.mdb " & vbNewLine & vbNewLine & _
„Vielen Dank für Ihre Mitarbeit…“ & vbNewLine & vbNewLine & _
„Mit freundlichen Grüßen“ & vbNewLine & vbNewLine & _
„Elmer“
'HTML-Format
'.Attachments.Add ATT1 'Berichte anhängen
'.Attachments.Add ATT2
For Each objOutlookRecip In .Recipients
objOutlookRecip.Resolve 'Namen überprüfen
Next
.Display 'Nachricht wird angezeigt
'.Send 'Nachricht wird sofort gesendet
End With
Ex:
On Error Resume Next
rs.Close
Set objOutlook = Nothing
'Verzeichnis und Dateien werden gelöscht
Kill „C:\temp\Ber_verz*.*“
Kill „C:\temp\Beispiel.txt“
RmDir „C:\temp\Ber_verz“
Exit Function
Er:
MsgBox Err.Description
Resume Ex
End Function
Hallo,
wenn Du schon HTMLBody benutzt, dann mußt Du auch HTML-Tags verwenden…
.Subject = Betreff
.HTMLBody = "Sehr geehrte Frau Kollegin, Sehr geehrter
Herr Kollege,
" & _
"Text, Text, Text, Text, Text, Text, Text,Text, Text, Text, Text, Text, Text, Text, Text, Text, Text,Text, Text, Text, Text, Text,
" & _
"C:*.mdb " & "
" & _
"Vielen Dank für Ihre Mitarbeit.
" & _
"Mit freundlichen Grüßen
" & _
„Elmer“
'HTML-Format
Gruß
Franz, DF6GL
Danke für die Antwort,
ich habe diesen Script so übernommen, doch es klappt noch nicht.
AC meldet einen Fehler beim Kompilieren: Syntaxfehler
es steckt also noch irgend ein Fehler in der Zeichenfolge…
Danke
Harald
Hallo,
na, den wirst Du doch selber finden können…
vermutlich ist ein Zeilenumbruch (Return) zwischen „gehrter“ und „Herr“ zuviel und falsch an dieser Stelle…
Ansonsten kann ich hier via Forum-Editor das nicht genau erkennen.
Gruß
Franz
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Danke für die Antwort,
ich habe den Fehler in der Zeichenfolge nicht gefunden, deshalb alles nochmals neu gestrickt:
kein HTMLBody mehr, sondern nur Body und den Zeilenwechsel mit:
Chr (13) & _
und dies funktioniert jetzt einwandfrei…
Gruß
Harald