eine automatische email mit Informationen losschicken,
die ausgewaehlte daten aus einem excelworksheet enthaelt -
wie geht das am einfachsten ?
Gruss
Boris
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
Sub MailVersenden()
Dim eMail$
Dim Subject$
Dim Body$
eMail = "Russi@daooze.de"
Subject = "Betreff"
Body = range("A1").value
Call ShellExecute(0&, "Open", "mailto:" + eMail + "?Subject=" + Subject + "&Body=" + Body, "1", "2", 1)
End Sub
Das sollte funktionieren.
Viele Grüße
Russi