CommandButtonClick und eMail Versand

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: CommandButtonClick und eMail Versand von: Agnes
Geschrieben am: 08.02.2005 15:17:12

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

Bild


Betrifft: AW: CommandButtonClick und eMail Versand von: Erich M.
Geschrieben am: 08.02.2005 15:50:20

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


Code eingefügt mit: Excel Code Jeanie

mfg
Erich
http://www.toolex.de


 Bild

Beiträge aus den Excel-Beispielen zum Thema "CommandButtonClick und eMail Versand"