Anzeige
Archiv - Navigation
556to560
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
556to560
556to560
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Mail an mehrere Empfänger
28.01.2005 12:41:05
Jutta
Hallo,
habe vergeblich nach einem passenden Makro für mich in der Recherche gesucht:
ich will per Button die aktuelle Mappe mit einem festen Betreff an mehrere Empfänger als Anlage verschicken.
Das Mail soll aber nicht sofort verschickt werden, sondern als Outlookformular erst einmal stehen bleiben, damit man eventuell noch etwas ergänzen kann.
Gruß
Jutta

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mail an mehrere Empfänger
28.01.2005 14:10:21
Christian
Hallo Jutta,
so gehts:

Private Sub CommandButton3_Click() 'Datei als Mail versenden
Dim outObj As Object
Dim Mail As Object
Dim strAtt As String
Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
strAtt = ThisWorkbook.FullName
With Mail
.Subject = "Betreff"
.Body = "Hallo Herr ..., " & vbLf & _
"" & vbLf & _
"Text" & vbLf & _
"" & vbLf & _
"" & vbLf & _
"" & vbLf & _
"" & vbLf & _
"automatisch versandte Mail " & vbLf & _
"" & vbLf & _
"Name" & vbLf & _
"Tel." & vbLf & _
"" & vbLf & _
"" & vbLf & _
"" & vbLf & _
.To = "email@email.net"
.CC = "Person1@test.net;Person2@test.net"
.Attachments.Add strAtt
.display
End With
Set Mail = Nothing
Set outObj = Nothing
End Sub

Anzeige
AW: Mail an mehrere Empfänger
31.01.2005 08:49:41
Jutta
Hallo Christian,
Danke ! Klappt super !
Gruß
Jutta

139 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige