Mail öffnen aus Excel
MB
ich möchte aus einer Tabelle heraus eine eMail öffnen und Empfänger, Betreff und Text mit Zellwerten vorbelegen (diese sollen aber noch geändert bzw. ergänzt werden können).
Hierzu habe ich mir diesen code von der Herber-CD geholt:
In Modul1 steht:
Sub SendMessage()
Dim oOL As Object
Dim oOLMsg As Object
Dim oOLRecip As Object
Dim Betreff As String
Set oOL = CreateObject("Outlook.Application")
Set oOLMsg = oOL.CreateItem(0)
With oOLMsg
Set oOLRecip = .Recipients.Add(Range("M3").Value)
.Subject = Betreff '"Zellwert > 100"
.Body = ActiveSheet.Cells(ActiveCell.Row, 3)
.Importance = 0
.Send
End With
oOLRecip.Resolve
Set oOLMsg = Nothing
Set oOLRecip = Nothing
Set oOL = Nothing
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim wkb As Workbook
Dim wks As Worksheet
Dim Betreff As String
Dim Mldg, Stil, Titel, Hilfe, Ktxt, Antwort, Text1
Dim lngrow As Integer, lngcolumn As Integer
Dim i As Long, j As Long
Dim status As String 'gesetzter Status
Dim v As Variant, v1 As Variant, v2 As Variant 'Verantwortliche der verschiedenen _
Tabellen
lngrow = ActiveCell.Row
lngcolumn = ActiveCell.Column
Betreff = ActiveCell
'Bereich eingrenzen für den Doppelklick
Set wks = ActiveSheet
i = 3
j = wks.Cells(i, 2).End(xlDown).Row
If lngrow j Or lngcolumn 2 Then
Exit Sub
End If
Call SendMessage
End Sub
Zudem füllt sich der Betreff nicht, da stimmt wohl mit der Variablendeklaration etwas nicht. Die Variable Betreff soll in der Privat Sub befüllt werden und dann an die Sub SendMessage() übergeben werden. Was mache ich denn hier falsch?
Zu guter letzt: Kann man das versenden einer eMail (inkl. befüllen von Empfänger, Betreff und Text) auch ohne VBA mit Hilfe eines Hyperlinks lösen? Eine Mail öffnen mit Hyperlink ist kein Problem, aber das füllen mit den Daten bekomme ich nicht hin.
Für Eure Hilfe besten Dank im Voraus!
LG aus Limbach
Mike
