Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
560to564
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
560to564
560to564
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

CommandButtonClick und eMail Versand

CommandButtonClick und eMail Versand
08.02.2005 15:17:12
Agnes
Hallo!
Ich möchte bei einer Arbeitsmappe einen CommandButton einrichten.
Wenn dieser angeklickt wird, soll die aktuell geöffnete Arbeitsmappe automatisch an eine bestimmte eMail Adresse versendet werden.
Also eine Komibnation aus:
"Datei/Senden an/E-Mail-Empfänger (als Anlage)" UND Hyperlink an eine bestimmte E-Mail-Adresse.
Das wäre echt spitze, wenn da jemand eine Lösung dafür wüsste!
Viele Grüße
Agnes

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CommandButtonClick und eMail Versand
Erich
Hallo Agnes,
erster Ansatz:
Option Explicit
Sub BlattKopierenUndVersenden()
'aktives Tabellenblatt als Arbeitsmappe
'im Temporären Ordner speichern, als
'Anlage mit Outlook versenden und anschliesend löschen
Dim strPath As String
Dim strName As String
Dim strFile As String
strPath = "C:\Windows\Temp\" 'Pfad
strName = InputBox("Dateiname eingeben, xls wird automatisch vergeben")
If strName = "" Then Exit Sub
'strName = ActiveSheet.Name 'Tabellenname
strFile = strPath & strName & ".xls"
Application.ScreenUpdating = False
ActiveSheet.Copy
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
With ActiveWorkbook
.SaveAs strFile
Senden strFile 'Datei versenden
.Close
End With
Kill strFile 'Datei löschen
Application.ScreenUpdating = True
End Sub
Sub Senden(AWS As String)
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
'.To = "erich-mayr@onlinehome.de"
'.Subject = InputBox(strName) '"strName" ' "Betreffzeile Header"
.attachments.Add AWS
'.Body = "Das ist ein Test." & vbCrLf & "Bitte ignorieren."
'Hier wird die Mail nochmals angezeigt
.Display
'Hier wird die Mail gleich in den Postausgang gelegt
'.Send
End With
'OutApp.Quit
'Set OutApp = Nothing
'Set Nachricht = Nothing
End Sub

mfg
Erich
http://www.toolex.de
Anzeige

300 Forumthreads zu ähnlichen Themen

dynamische Button-Click-Event für Tabelle
Pia

Hallo,
unter folgendem Link:
https://www.herber.de/forum/archiv/1100to1104/t1100971.htm
wird eine Lösung für dynamische Button-Click-Events bei Userforms angeboten. Ich würde gerne wissen, wie man dies bei einem Tabellenblatt macht. Dieses Tabellenblatt wird inkl. Button per VBA erz...
13.06.2010 21:47:18
Thread-ID: 1161677
3 Beiträge
Anzeige
dynamische Button Click-Event #2
Micha

Hallo zusammen,
ich habe im Forum einen Artikel gefunden (dynamische Button Click-Event vom 07.09.2009) der mir sehr hilft, bei dem ich jedoch noch ein Verständnisproblem habe. Ich hoffe Ihr könnt es auch mir begreiflich machen.
Es geht darum, controls dynamisch zur Laufzeit anzulegen u...
27.09.2013 15:02:34
Thread-ID: 1332446
3 Beiträge
Private Sub CommandButton1_Click() automatisch
Heinz

Hallo Leute im Forum
Ich habe ein langes Makro das ich im Sheets "Artikel" mit
Private Sub CommandButton1_Click() aufrufe.
Nun möchte ich,wenn ich das Makro das erste mal aufrufe und das ganze makro durlaufen ist,das am Ende automatisch wieder Private Sub CommandButton1_Click()
04.11.2013 10:11:29
Thread-ID: 1337011
5 Beiträge
Anzeige
VBA Commandbutton
VBA

Hallo,
Ich habe gerade begonnen mich ein wenig mit VBA zu beschäftigen und bin nun auf ein Problem gestoßen bei dem ich auch mit Internetrecherge nicht weitergekommen bin.
Es geht um folgendes Problem:
Ich möchte mit der betätigen eines Commandobuttons eine Variable bestimmen und da...
06.06.2014 10:55:40
Thread-ID: 1364963
10 Beiträge
Commandbutton click
Mathias

Hallo habe folgendes problem ich möchte das in folgenden zeilen im +1 gerechnet wird wenn folgende bedingung erfüllt ist funktioniert aber nicht wo ist mein fehler :(
Er zählt schon +1 wenn ich alle togglebutton aktiviert habe :( und senn ich den commandbutton clicke nochmal Private Sub C...
16.03.2015 09:46:07
Thread-ID: 1415191
3 Beiträge
Click auf Submit Button in html via VBA
Henner

Hallo zusammen,
mit folgendem Code lasse ich Daten von Excel in html übergeben: Sub Anmelden() Dim IEApp As Object Set IEApp = CreateObject("InternetExplorer.Application") IEApp.Visible = True IEApp.Navigate "https://xxx.xx/form.php?id=12345" Do: Loop Until IEApp.Busy = False Do: Loop Unti...
30.04.2016 13:50:49
Thread-ID: 1491291
4 Beiträge
CommandButton1_Click()
Tom

Hallo zusammen,
mein CommandButton1_Click() funktioniert im Modul1 nicht.
Wenn ich den Code in "Objekte Tabelle1(Tabelle1)" einfüge, funktioniert das ganze.
Was mache ich falsch?
MfG Tom
Private Sub CommandButton1_Click() Worksheets(1).Range("B11,E11,H11").Interior.Color = R...
13.09.2016 12:09:26
Thread-ID: 1514091
5 Beiträge
Commandbutton_click aufrufen
UweD

Hallo
habe im Codebereich von Tabelle2 einen Code auf einem Button liegen
Private Sub CommandButton1_Click() '*** Generieren 'mache alles mögliche end sub Vor dem Schließen möchte ich den "Knopf" noch einmal drücken
Mein Gedanke war.
ich rufe das aus der "Workbook_BeforeClose"...
25.08.2017 14:40:02
Thread-ID: 1576620
7 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
3
2
4
5
9
2
3
4
6
8
1
19
2
1
5
2
2
1
6
7
7
4
4
5