Mail über Access im Nur Textformat senden

[MichaelP]

Hi Leute,

habe folgendes Script:

Private Sub Befehl48_Click()

  ' Outlook Applikation

  Dim ool As Outlook.Application

  Dim oInspector As Outlook.Inspector

  Dim oMail As Outlook.MailItem



  ' Adresse anzeigen und Änderung ermöglichen



  ' Verweis zu Outlook + neue Nachricht

  Set ool = CreateObject("Outlook.Application")

  Set oMail = ool.CreateItem(olMailItem)


  ' Befreff-Zeile

  oMail.Subject = "Gerätebegleitschein // " & RMA & " // " & kundenname & " // " & " Kunden RMA: " & Kunden_RMA


  ' An-Zeile (Empfänger)

  oMail.To = "service@Firma.de"   ' Emailadresse des Empfängers

  oMail.Recipients.ResolveAll

  oMail.Display


  ' Texteingabe (Nachricht selbst)

    oMail.Body = RMA & vbNewLine & vbNewLine & "Gerätebegleitschein" _

    & vbNewLine & vbNewLine _

    & "Meldedatum:         " & meldedatum & vbNewLine _

    & "Kundendaten:        " & kundenname & vbNewLine _

    & "Ansprechpartner:    " & kundenansprechpartner & vbNewLine _

    & "Telefonnummer:      " & kundentelefonnummer & vbNewLine & vbNewLine _

    & "Produktdaten:       " & produktname & " " & produkt_bezeichnung & vbNewLine _

    & "Produktname:        " & produkt_produktnummer & vbNewLine _

    & "Seriennummer:       " & Seriennummer & vbNewLine _

    & "Supportpack PN:     " & SPPN & vbNewLine _

    & "Supportpack SN:     " & SPSN & vbNewLine _

    & "Zählerstand:        " & zaehlerstand & vbNewLine & vbNewLine _

    & "Fehlerbeschreibung: " & Fehlerbeschreibung & vbNewLine & vbNewLine _

    & "Status:             " & Status & vbNewLine


  Set ool = Nothing

  Set oInspector = Nothing

  Set oMail = Nothing

End Sub

Weiß jemand wie ich über das Script an Outlook übergeben kann, dass Outlook diese Nachrricht automatisch im Nur-Text Format oder evtl. eine bestimmte Schriftart übergeben kann?

Accessversion ist 2002.

Danke schonmal

[Gast]

Soweit ich weiss wird die Nachricht, wenn Du sie mit

ItemMail.Body = "Nachricht"

übermittelst immer im "Nur Text"-Format gesendet. HTML-Nachrichten werden mit

ItemMail.HTMLBody = "HTML-Nachricht"

gesendet.

[MichaelP]

Funktioniert so nicht ganz,

hab es aber jetzt rausbekommen:

oMail.BodyFormat = olFormatPlain

eingefügt und es geht!