Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Email aus Excel heraus versenden

Forumthread: Email aus Excel heraus versenden

Email aus Excel heraus versenden
13.05.2003 11:20:29
jens
Hallo liebe Leute,

ich habe ein Problem, ich möchte aus Excel werte in eine Mail einfügen und diese dann an einen bestimmten Verteiler versenden. Es ist ein riesen Aufwand dieses täglich wieder neu in die Mail zu kopieren. Mit einem einfachen Macro bin ich nicht weit gekommen, habe es zwar versucht, es wirkt aber nicht leider ;-((
Kann mir da einer bitte weiter helfen???
Danke für die Mühe, Gruß Jens

Anzeige

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

Betreff
Datum
Anwender
Anzeige
Re: Email aus Excel heraus versenden
13.05.2003 11:39:19
Michael Scheffler

Bitte ins Archiv schauen.

Re: Email aus Excel heraus versenden
13.05.2003 14:15:45
nayus

Es geht auch freundlicher... ;-)

Sub mailen()
Dim olApp As Object
Dim myMail As Object
Set olApp = CreateObject("Outlook.Application")
Set myMail = olApp.CreateItem(0)
With myMail
' hier Empfänger angeben
.To = "test@test.de"
.Subject = "Test"
' hier Textdatei angeben
.Body = get_text("c:\temp\xxx.txt")
.display
'Kommentar entfernen, wenn direkt gesendet werden soll
'.send
End With
End Sub

Function get_text(p_file As String) As String
'Hilfsfunktion zum Einlesen der Daten aus der Textdatei
Dim l_ret, l_buffer As String
Open p_file For Input As #1
Do While Not EOF(1)
Line Input #1, l_buffer
l_ret = l_ret & l_buffer & Chr(13)
Loop
Close #1
get_text = l_ret
End Function

Viel Erfolg,
Nayus

Anzeige
Re: Email aus Excel heraus versenden
14.05.2003 23:39:02
Jens

Vielen Dank Nayus
für die nette Antwort,
hast mir sehr damit geholfen.

Gruß Jens


;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige