Zelle in Mail kopieren - Format beibehalten

[brooker]

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

[Steffl]

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

[MisterBurns]

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.

[brooker]

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

[MisterBurns]

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

[brooker]

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?

[Steffl]

Hallo,

ich glaube eher nicht.

[brooker]

Ok! Dann wird wohl so sein.

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

[MisterBurns]

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.

[schauan]

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!