Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 18:04:29
Formel fehler Wert#
18.04.2024 17:45:21
Shellkommando ausführen, stderr auslesen
18.04.2024 17:41:41
Summe: Bestimmter Bereich mit sverweis
18.04.2024 16:33:24
Worksheets variable
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
252to256
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
252to256
252to256
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Email aus Excel

Email aus Excel
11.05.2003 16:14:49
@lex
Hallo Freunde !

Ich verwende folgenden Code, den ich in der Recherche gefunden habe. Da ich VBA unerfahren bin, ersuche ich um folgende Hilfestellung: Der nachstehende Code sollte so angepasst werden, dass ich an mindestens 3 Adressaten senden und auch einen Text und den Namen des Verfassers (immer der gleiche) einbeziehen kann.

Hier der Code:
Private Sub CommandButton3_Click()
'Sub send_worksheet()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("Tabelle 1").Copy
ActiveWorkbook.SendMail Recipients:="Emailadresse"
ActiveWorkbook.Close
End Sub

danke für die Hilfe

Gruß Alex

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Email aus Excel
11.05.2003 17:10:24
Ramses

Hallo Alex,

ActiveWorkbook.SendMail Recipients:="1@irgendwo.de;2@irgendwo.de;3@irgendwo.de", Subject:="Test"

oder

ActiveWorkbook.SendMail Recipients:="" & Range("A1") & ";" & Range("A2") & ";" & Range("A3") & "", Subject:="Test"

Allerdings kannst du keinen Body übergeben, also einen normalen Text. Wenn du eine Anweisung brauchst für Outlook, wo du das steuern kannst, schau auch mal hier vorbei.

Gruss Rainer


Re: Email aus Excel
11.05.2003 19:08:01
@lex

Hallo Ramses !

In der von dir genannten Quelle habe ich was passendes gefunden.
Hier der Code: Hier wird aber das gesamte Workbook versende - ich möchte nur ein Sheet versenden. Wie muss ich das anpassen ?

Gruß Alex

Sub Excel_Workbook_via_Outlook_Senden()
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
'Aktive Arbeitsmappe wird als Mail gesendet
AWS = ThisWorkbook.FullName
InitializeOutlook = True
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "irgendwer@provider"
.Subject = "Testmeldung von Excel2000 " & Date & Time
.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
'Mail.Send
End With
OutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub


Anzeige
Re: Email aus Excel
11.05.2003 19:22:09
Ramses

Hallo Alex,

ungetestet, sollte aber gehen


Option Explicit

Sub Excel_Workbook_via_Outlook_Senden()
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim TmpFile As String
Dim AWS As String
TmpFile = "C:\TempMail.xls"
'Aktive Arbeitsmappe wird als Mail gesendet
'Das aktive Sheet wird temporär in eine Mappe
'lokal im Root von C: gespeichert
Worksheets.Copy
ActiveWorkbook.SaveAs Filename:=TmpFile
AWS = ThisWorkbook.FullName
InitializeOutlook = True
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "irgendwer@provider"
.Subject = "Testmeldung von Excel2000 " & Date & Time
.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
'Mail.Send
End With
OutApp.Quit
'Die temporäre Mappe wird geschlossen
ActiveWorkbook.Close
'.... und gleich gelöscht
Kill TmpFile
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub 

     Code eingefügt mit Syntaxhighlighter 1.16


Gruss Rainer

Anzeige
Re: Email aus Excel
11.05.2003 19:56:26
@LEX

´Hello Rainer !

Kann ich mit dem Code auch nur ein Sheet eines Workbooks senden ?? Das wärs, was ich brauche !!!

Gruß Alex

Re: Email aus Excel
11.05.2003 20:01:38
Ramses

Hallo Alex,

mache es doch einfach so wie ich es geschrieben habe,... dann hast du das was du brauchst.

Eine einzelne Tabelle aus einer Mappe kann nicht gesendet werden. Es muss der Umweg über eine Arbeitsmappe mit einem einzelnen Sheet gewählt werden.

Gruss Rainer


Re: Email aus Excel
11.05.2003 20:01:38
Ramses

Hallo Alex,

mache es doch einfach so wie ich es geschrieben habe,... dann hast du das was du brauchst.

Eine einzelne Tabelle aus einer Mappe kann nicht gesendet werden. Es muss der Umweg über eine Arbeitsmappe mit einem einzelnen Sheet gewählt werden.

Gruss Rainer


Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige