29.06.2017, 08:37
Hallo zusammen,
ich möchte gern aus einer Excel-Vorlage (V. 2010, xltm) einen bestimmten Zellbereich per Knopfdruck über Outlook versenden
und den Betreff mit einer weiteren Zelle füllen.
Mittlerweile sind alle Treffer die ich mit diesem Suchbegriff bei google gefunden habe lila markiert :22: .. aber richtig funktionieren tut's immer noch nicht.
Das folgende Makro funktioniert leidlich.... Was noch fehlt ist dass der Betreff zusammen gesetzt wird aus:
"Text"Zelle E3"text" ..wobei der Text noch Sonderzeichen enthält also "text [#" E3 "] weiterer text"
Beispiel Betreff: "Ticketnummer [#20170629-0001] Hardware-Bestellung"
Im Body hätte ich gerne den Inhalt der Zelle E14. (Im aktuellen Status wird das nur dann eingefügt, wenn die Zelle markiert ist)
Ich hoffe ihr könnt mir helfen,
Andrea
ich möchte gern aus einer Excel-Vorlage (V. 2010, xltm) einen bestimmten Zellbereich per Knopfdruck über Outlook versenden
und den Betreff mit einer weiteren Zelle füllen.
Mittlerweile sind alle Treffer die ich mit diesem Suchbegriff bei google gefunden habe lila markiert :22: .. aber richtig funktionieren tut's immer noch nicht.
Das folgende Makro funktioniert leidlich.... Was noch fehlt ist dass der Betreff zusammen gesetzt wird aus:
"Text"Zelle E3"text" ..wobei der Text noch Sonderzeichen enthält also "text [#" E3 "] weiterer text"
Beispiel Betreff: "Ticketnummer [#20170629-0001] Hardware-Bestellung"
Im Body hätte ich gerne den Inhalt der Zelle E14. (Im aktuellen Status wird das nur dann eingefügt, wenn die Zelle markiert ist)
Ich hoffe ihr könnt mir helfen,
Andrea
Code:
Private Sub copy2ticket1()
Dim oOL As Object
Dim oOLMsg As Object
Dim oOLRecip As Object
Dim sAddress As String
sAddress = Range("E62").Value
Set oOL = CreateObject("Outlook.Application")
Set oOLMsg = oOL.CreateItem(0)
With oOLMsg
Set oOLRecip = .Recipients.Add(sAddress)
.Subject = "Dies ist ein Outlook-Test"
.Body = ActiveCell.Value
.Importance = 1
.Send
End With
oOLRecip.Resolve
Set oOLRecip = Nothing
Set oOLMsg = Nothing
Set oOL = Nothing
End Sub
