Thema Datum  Von Nutzer Rating
Antwort
29.10.2020 07:51:49 ch79
NotSolved
Blau Body Format
 29.10.2020 08:30:35 TestGast
NotSolved
29.10.2020 12:22:48 volti
NotSolved
29.10.2020 12:32:44 volti
NotSolved
30.10.2020 14:08:05 Gast83026
NotSolved
30.10.2020 17:46:32 volti
NotSolved
30.10.2020 17:48:41 volti
NotSolved
30.10.2020 21:03:09 ch79
NotSolved
03.11.2020 11:28:35 ch79
NotSolved
03.11.2020 13:27:01 volti
NotSolved
03.11.2020 15:32:08 Gast47610
NotSolved
03.11.2020 16:12:31 volti
NotSolved
03.11.2020 17:33:46 Mase
NotSolved
03.11.2020 17:45:27 Mase
NotSolved
03.11.2020 19:31:10 volti
NotSolved
03.11.2020 19:57:37 Mase
NotSolved
03.11.2020 22:15:13 volti
NotSolved
03.11.2020 23:19:31 Mase
NotSolved

Ansicht des Beitrags:
Von:
TestGast		 Datum:
29.10.2020 08:30:35		 Views:
582		 Rating:
     
Antwort:
  Ja
Thema:
Body Format

Hallo ch79,

ich erstellte auch mal ein Makro, das eine Mail aus Daten einer Tabelle erstellen muss.
Bei mir verwendete ich eine HTML-Mail. Deswegen hat has hier funktioniert:

Vielleicht hilft dir das schonmal weiter.

Der TestGast

--- Makro ---

Sub MailVersenden    'Dient hier nur als Beispielaufruf
    Dim TXT as String
    Dim Datum as Date
    Datum = now()
    TXT = "<b><font color=green size=""6"">Rücklieferung</font></b><br><br>"
    TXT = TXT & "<font face=""Courier New"" size=""5"">"
    TXT = TXT & "<b>Datum:</b>" & Application.WorksheetFunction.Rept("&nbsp;", 8) & Datum & "<br>"
    TXT = TXT & "</font>"
    EMail_erstellen E_Liste, "Bezug Fertiggeräte - PNC: " & PNC, TXT, False
End Sub

Sub EMail_erstellen( _
    ByVal Empfänger As String, _
    ByVal Betreff As String, _
    ByVal BodyText As String, _
    ByVal Senden As Boolean)

    Dim OutApp As Object
    Set OutApp = CreateObject("Outlook.Application")
    
    Dim Nachricht As Object
    Set Nachricht = OutApp.CreateItem(0)
    With Nachricht
        .to = Empfänger
        .getinspector
        .Subject = Betreff
        .htmlbody = BodyText & vbCrLf & .htmlbody
        If Senden = True Then
            .send
            Else
            .display
        End If
    End With
    Set OutApp = Nothing
    Set Nachricht = Nothing
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
29.10.2020 07:51:49 ch79
NotSolved
Blau Body Format
 29.10.2020 08:30:35 TestGast
NotSolved
29.10.2020 12:22:48 volti
NotSolved
29.10.2020 12:32:44 volti
NotSolved
30.10.2020 14:08:05 Gast83026
NotSolved
30.10.2020 17:46:32 volti
NotSolved
30.10.2020 17:48:41 volti
NotSolved
30.10.2020 21:03:09 ch79
NotSolved
03.11.2020 11:28:35 ch79
NotSolved
03.11.2020 13:27:01 volti
NotSolved
03.11.2020 15:32:08 Gast47610
NotSolved
03.11.2020 16:12:31 volti
NotSolved
03.11.2020 17:33:46 Mase
NotSolved
03.11.2020 17:45:27 Mase
NotSolved
03.11.2020 19:31:10 volti
NotSolved
03.11.2020 19:57:37 Mase
NotSolved
03.11.2020 22:15:13 volti
NotSolved
03.11.2020 23:19:31 Mase
NotSolved