ich habe folgendes Problem:
Ich würde gerne eine Mail mit bestimmten Inhalt über einen über einen CommandButton versenden.
Nun soll aber ein beleibiger Empfänger aus einer Liste in der Arbeitsmappe ausgewählt werden, und der Mailversand wieder über einen CommandButton geschehen. In der Liste kann nur der Name stehen oder auch die komplette mailadd. das ist egal. Schön wäre es wenn man auch zwei oder drei Namen auswählen könnte.
Für einen Namen Funktioniert es mit diesem Code (weitere beschreibung am ende):
' Hier die benötigten API-Deklarationen für SendMail
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
'Code für CommandButton2 MAil Durchführung
Sub SendMail()
Dim Betreff
Dim Mailparameter
Dim Text
Dim Empfänger
'Empfänger der mail + evtl. festgelegter Text
Empfänger = Range("M8").Formula
Text = ""
Betreff = "Ausschußmeldung"
Mailparameter = ""
' Wurde ein Betreff angegeben?
If Betreff "" Then
Mailparameter = "subject=" & Betreff
End If
' Wurde ein Text angegeben?
If Text "" Then
Mailparameter = Mailparameter & "&" & "body=" & Text
End If
Call ShellExecute(0, "Open", "mailto:" & _
Empfänger & "&" & Mailparameter, "", "", 1)
End Sub
Private Sub CommandButton2_Click()
Call SendMail
End Sub
Jedoch wird nur diejenige Person ausgewählt welche sich in P2 als Hyperlink befindet.
Ich hab nun eine Liste mit allen Mailadd. als Hyperlinks angelegt und lese diese nun mit einer z.B
=Wenn(H9="NAME";Q1;"NoMAIL") Funktion aus nach P2.
Leider wird die Add. nicht als Hyperlink eingelesen und es erscheint im Outlook die Fehlermeldung "Das Befehlszeilenargument ist ungültig. Befehl überprüfen"
Kann mir jemand helfen.
Vielen Dank im vorraus.
Kennitt