Clever-Excel-Forum

Hallo,

ich möchte gerne aus einer Tabelle mehrere Werte in eine Mail einfügen. Teilweise in den Betreff, teilweise in das Nachrichtenfeld.
Grundsätzlich ist das auch kein Problem und funktioniert.

Probleme gibt es nur bei den Feldern C11, D11 und F11. Hier sind Werte in folgendem Format eingetragen z.B.

C11 (Startzeit):
07:00

D11 (Endzeit):
07:30

F11 (Differenz)
00:30

Diese Werte sollen genau so in die Mail eingefügt werden. Beim kopieren übernimmt er aber natürlich das Format nicht.
Ich stehe ein bisschen auf dem Schlauch und habe nicht so die passende Lösung. Könnt ihr helfen?

Hier mein bisheriger Code.

Code:
Sub Mailverand()

    Dim OutApp As Object, Mail As Object, i

    Dim Nachricht

'Mail öffnen

    Set OutApp = CreateObject("Outlook.Application")

    Set Nachricht = OutApp.CreateItem(0)

    With Nachricht

        .Subject = Range("P18").Value & " - " & Range("F6").Value & " - " & Range("C8").Value

        .To = Range("P17")

        .body = Range("C6").Value & Chr(10) & Chr(10) & Range("C11") & " bis " & Range("C12").Value & Range("F11").Value & " Std:Min" & Chr(10) & Chr(10) & Chr(10) & Chr(10) & Range("C14").Value

        .display

    End With

    Set OutApp = Nothing

    Set Nachricht = Nothing

End Sub

Hallo,

vielleicht mit Format oder der Text-Eigenschaft?

Code:
Sub Mailverand()

    Dim OutApp As Object, Mail As Object, i

    Dim Nachricht

'Mail öffnen

    Set OutApp = CreateObject("Outlook.Application")

    Set Nachricht = OutApp.CreateItem(0)

    With Nachricht

        .Subject = Range("P18").Value & " - " & Range("F6").Value & " - " & Range("C8").Value

        .To = Range("P17")

        .body = Range("C6").Value & Chr(10) & Chr(10) & Format(Range("C11"), "h:mm") & " bis " & Range("C12").Value & Range("F11").Text & " Std:Min" & Chr(10) & Chr(10) & Chr(10) & Chr(10) & Range("C14").Value

        .display

    End With

    Set OutApp = Nothing

    Set Nachricht = Nothing

End Sub

Hallo,

das ist nicht ganz trivial denke ich. Eine Möglichkeit wäre RangetoHTML von RondeBruin, siehe dazu http://www.rondebruin.nl/win/s1/outlook/bmail2.htm
Das Problem dabei ist, dass auf deinem oben beschriebenen Weg keine Formatierung übernommen wird, das ist auch so denke ich nicht zu ändern.

Hallo,

danke für die schnelle Rückmeldung. Die Text-Eigenschaft hat mein Problem schon gelöst und reicht für meine Fälle vollkommen aus! DANKE!

Ich habe jetzt noch hinzugefügt, dass die Mail automatisch versendet wird und eine Info Box kommt. Allerdings erhalte ich noch eine Meldung, dass Excel auf Outlook zugreifen will und das muss ich bestätigen. Kann ich das unterbinden?
Lg

Googeln ist nicht deine Stärke, was?
https://support.microsoft.com/de-at/help...-warning-i

(14.09.2018, 11:30)MisterBurns schrieb: [ -> ]Googeln ist nicht deine Stärke, was?
https://support.microsoft.com/de-at/help...-warning-i

Wenn diese Lösung in Frage kommen würde bzw. das an diesem Rechner technisch möglich wäre, dann hätte ich es bereits gemacht. Da es so aber nicht geht, habe ich gefragt. Für sowas sind Foren wohl da. Alternativ könnte man dieses Forum dann ja auch schließen :16:
Vielleicht hätte ich für dich die Frage anders formulieren müssen.

Gibt es noch eine andere Möglichkeit die Meldung (ggf. per VBA) zu unterdrücken?

Hallo,

ich glaube eher nicht.

Ok! Dann wird wohl so sein.

Danke nochmal für die Lösung meines Ursprungproblems. Sleepy

Zitat:Für sowas sind Foren wohl da. Alternativ könnte man dieses Forum dann ja auch schließen

Da hast du absolut recht. Aber ich schätze dass ohne Übertreibung 70 % der Fragestellungen durch richtiges Benutzen einer Suchmaschine unnötig wären. Was nicht heißen soll, dass man nicht fragen darf. Aber häufig sind User einfach zu faul, sich selbst auf die Suche zu machen. Dass du das bereits vorab getan hast, konnte ich deinem Posting nicht entnehmen.

Hallöchen,

wenn die Hinweise von Microsoft nicht umsetzbar sind, geht sicher auch kein Addin, oder doch?

Dateiupload bitte im Forum! So geht es: Klick mich!

brooker

Steffl

MisterBurns

brooker

MisterBurns

brooker

Steffl

brooker

MisterBurns

schauan