ich habe mir mit tatkräftiger Unterstützung des Forums einen code gebastelt, der aus Excel heraus eine eMail öffnet und mit Infos befüllt.
Option Explicit
Public sign$
Sub SendMessage(sign)
Dim oOL As Object
Dim oOLMsg As Object
Dim oOLRecip As Object
Set oOL = CreateObject("Outlook.Application")
Set oOLMsg = oOL.CreateItem(0)
With oOLMsg
' Set oOLRecip = .Recipients.Add(Range("M3").Value)
.Subject = "Auftrag: " & ActiveSheet.Cells(ActiveCell.Row, 2) 'Betreff
.Body = ActiveSheet.Cells(ActiveCell.Row, 3) & sign
.Importance = 1
.display
End With
'oOLRecip.Resolve
Set oOLMsg = Nothing
Set oOLRecip = Nothing
Set oOL = Nothing
End Sub
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim wkb As Workbook
Dim wks As Worksheet, wksStamm As Worksheet
Dim Mldg, Stil, Titel, Hilfe, Ktxt, Antwort, Text1
Dim gstruser As String
Dim lngrow As Integer, lngcolumn As Integer
Dim i As Long, j As Long
Dim z As Range
lngrow = ActiveCell.Row
lngcolumn = ActiveCell.Column
'Bereich eingrenzen für den Doppelklick
Set wks = ActiveSheet
i = 2
j = wks.Cells(i, 2).End(xlDown).Row
If lngrow j Or lngcolumn 2 Then
Exit Sub
End If
Set wksStamm = Worksheets("Stammdaten")
gstruser = UCase(Environ("Username"))
With wksStamm.Columns(1)
Set z = .Find(gstruser, LookIn:=xlValues)
If z Is Nothing Then
MsgBox gstruser & " wurde nicht gefunden." & _
vbNewLine & _
"Bitte erfassen Sie in der Tabelle Stammdaten" & _
vbNewLine & _
"eine Signatur für Ihren user.", vbCritical
Exit Sub
Else
sign = wksStamm.Cells(z.Row, 2)
End If
End With
Call SendMessage(sign)
End Sub
Was ich nicht hinbekomme, ist die Formatierung mit zu übernehmen. Die Signatur (sign) besteht aus mehreren Zeilen mit unterschiedlichen Formatierung wie z. B. die Schriftart und Schriftgröße.Kann mir da noch jemand behilflich sein, wie kann ich den Text formatiert übernehmen bzw aus dem Modul heraus formatieren.
Besten Dank im Voraus!
Liebe Grüße aus Limbach
Mike