Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
404to408
404to408
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

email automatisch anstossen

Forumthread: email automatisch anstossen

email automatisch anstossen
Boris
moechte ueber einen CommandButton in einem EXCEL-UserForm
eine automatische email mit Informationen losschicken,
die ausgewaehlte daten aus einem excelworksheet enthaelt -
wie geht das am einfachsten ?
Gruss
Boris
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: email automatisch anstossen
Russi
Hallo Boris!
Lassen Deinen Button folgendes Makro aufrufen:
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


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
Anzeige
AW: email automatisch anstossen
Boris
hi russi,
wie kriegts man hin, dass die email auch automatisch versandt wird ?
danke
boris
AW: email automatisch anstossen
29.03.2004 13:17:25
Russi
Klicke mit der rechten Maustaste auf den Button in Deiner Userform, wähle "Code anzeigen".
In das Modul schreibst Du dann "Call MailVersenden"
Meinen o.g. Code musst Du in ein Modul (Einfügen - Modul) einfügen.
Russi
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige