Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1192to1196
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
1192to1196
1192to1196
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mails mit Beilage versenden

Mails mit Beilage versenden
Markus
Hallo,
das folgende Makro funktioniert fast!
Bloss bei der Zeile Attachments bockt Excel.
Ich habe alles versucht, auch beim googlen bin ich nicht weiter gekommen.
Danke Für Hilfe
Markus
Sub Excel_Serienmail_via_Outlook_Senden()
Dim OutApp As Object, Mail As Object
Dim i As Integer
Dim Nachricht
For i = 1 To 10
'Variablen müssen bei jeder Schleife neu initalisiert werden
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = Cells(i, 1) 'Adresse
.Subject = Cells(i, 2) 'Betreffzeile
.Body = Cells(i, 3) 'Sendetext
.Attachments = Cells(i, 4)  'Anhanng
'Hier wird die Mail gleich in den Postausgang gelegt
'und die Sicherheitsabfrage muss jedesmall bestätigt werden
.Send
'Hier wird die Mail "angezeigt"
'aber gleich versendet,... OHNE Sicherheitsabrage
.Display
SendKeys "%s", True
End With
'Variablen zurücksetzen sonst geht es nicht
Set OutApp = Nothing 'CreateObject("Outlook.Application")
Set Nachricht = Nothing 'OutApp.CreateItem(0)
Application.Wait (Now + TimeValue("0:00:05"))
Next i
End Sub

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Mails mit Beilage versenden
14.01.2011 08:38:06
Kawensmann
Hallo,
versuch's mal so: 
.Attachments.Add = Cells(i, 4)  'Anhanng
wobei ich davon ausgehe, dass in Cells(i,4) jeweils ein gültiger Pfad- und Dateiname steht.
Gruß
Kawensmann
AW: Mails mit Beilage versenden
14.01.2011 08:40:06
Markus
Hallo Kawesmann,
das habe ich auch schon versucht.
Geht nicht
Markus
war auch Blödsinn ...
14.01.2011 08:42:48
Kawensmann
so sollte es gehen:
.Attachments.Add Cells(i, 4).Value   'Anhanng

AW: war auch Blödsinn ...
14.01.2011 08:47:37
Markus
Hallo Kawensmann,
danke bestens.
Jetzt habe noch das Problem, das beim senden immer noch die Frage kommt,
ob ich senden will.
Aber das werde ich bestimmt hinkriegen.
Markus
Anzeige
AW: war auch Blödsinn ...
14.01.2011 09:26:18
Holger,
Geht es nicht mit 

Application.DisplayAlerts = False
?
AW: war auch Blödsinn ...
14.01.2011 09:42:07
mumpel
Hallo!
Nein, das geht damit nicht. Zum Senden ohne Sicherheitsmeldung gibt es zwei Möglichkeiten. Entweder die "Redemption" nutzen, oder Mail zuerst anzeigen lassen (.display) und dann mit SendKeys die Mail senden. Für "SendKeys" findet man im Archiv jede Menge Beispiele.
Gruß, René
AW: war auch Blödsinn ...
14.01.2011 09:48:27
Markus
Hallo René,
leider habe ich nichts schlaues gefunden über Redemption.
Aber, ..
1. ich kann nicht verstehen, warum dieses lästige Outlook diese Frage immer stellt
2. Kann man wenigstens alle Mails so vorbereiten dass diese in den Postausgang oder in die Entwürfe gelegt werden.
Gruss
Markus
Anzeige
probier mal so.
14.01.2011 10:09:38
Beffen
Hallo.
also zu 1. Outlook stellt damit sicher, dass keine automatisch generierten Mails versendet werden. Sei es als Spam oder zur Verbreitung von schädlichen Programmen. Hatte das Problem auch des Öfteren.
zu 2. Es geht, Mails zu versenden. Ich weiss nun nicht, ob bei deinem Office zwei Fehlermeldungen angezeigt werden. Bei mir zumindest war es. es gibt einen recht umfangreichen Code wenigstens eine Meldung zu umgehen. hat bei mir ohne Probleme funktioniert.
probier mal sowas:
Option Explicit
Sub Send_Excel_Message()
Dim MyMessage As Object, MyOutApp As Object
Dim SafeMailItem As Object
'InitializeOutlook = True
Set MyOutApp = CreateObject("Outlook.Application")
'Nachrichtenobject erstellen
Set MyMessage = MyOutApp.CreateItem(0)
Set SafeMailItem = CreateObject("Redemption.SafeMailItem")
SafeMailItem.Item = MyMessage
With SafeMailItem
.To = "me@home.de"
.Subject = "Testmeldung von Excel2000 " & Date & Time
'Hier wird eine normale Text Mail erstellt
'.body = "Das ist ein Test" & vbCrLf & "Bitte ignorieren"
'Hier wird die HTML Mail erstellt
.HTMLBody = "Das ist ein Test" & vbCrLf & "Bitte ignorieren."
' Mail senden
.Send
End With
' MyOutApp.Quit
Set SafeMailItem = Nothing
Set MyMessage = Nothing
Set MyOutApp = Nothing
End Sub

und hast du unter Extras -> Verweise -> die Microsoft Outlook x.x Object Library angehakt?
Grüße Beffen
Anzeige
Hm, bei mir geht das:
14.01.2011 10:01:50
Holger,
Hi Rene,
also bei mir geht das ohne Redemption mit .Send?
Die E-Mails werden ohne Nachfrage gesendet.
Sub SendEmail()
Dim OutApp As Object
Dim OutMail As Object
Dim strBody As String
Dim strAddress As String
Dim strcc As String
Dim strSubject As String
Dim SigString As String
Dim Signature As String
Dim strDate As String
On Error Resume Next
Set OutApp = GetObject(, "Outlook.Application")
If OutApp Is Nothing Then
Set OutApp = CreateObject("Outlook.Application")
End If
On Error GoTo 0
If OutApp Is Nothing Then
MsgBox "Outlook ist nicht installiert, kein E-Mail Versand möglich", vbOKOnly +  _
vbExclamation, "Achtung"
Exit Sub
End If
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem) 'früher: 'Set OutMail = OutApp.CreateItem(0)
Set MyAttachments = OutMail.Attachments
'    MyAttachments.Add strDateinameInStore
'    MyAttachments.Add strDateinameData
cpwMaster.Activate
strDate = CDate(Format(Now, "DD.MM.YYYY hh:mm"))
strBody = "*****************************************"
strAddress = Range("E4").Value
strcc = Range("F4").Value
strSubject = "files " & strcurPer & " " & strDate
SigString = "C:\Standard.txt"
If Dir(SigString)  "" Then
Signature = GetBoiler(SigString)
Else
Signature = ""
End If
On Error Resume Next
With OutMail
.To = strAddress
.CC = strcc
.BCC = ""
.Subject = strSubject
.Body = strBody & vbNewLine & vbNewLine & Signature
'.Attachments.Add (strDateinameInStore)
.Send   'or use .send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

Function GetBoiler(ByVal sFile As String) As String
Dim fso As Object
Dim ts As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
GetBoiler = ts.readall
ts.Close
End Function

Anzeige
und bist Du nicht willig, so brauch ich Gewalt
14.01.2011 10:12:49
Markus
Hallo Excel-Spezis,
unsere Informatik-Abteilung, bzw. unser Exchange-Server hat etwas dagegen,
dass "Massenmails" so versendet werden.
Aber wie gesagt: "und bist Du nicht w..................
.send weglassen, und mit SendKey versenden.
Gut bei 300 Dateien, die ich so versenden muss, ca 30 Minuten Zeitaufwand.
Aber es geht und das ist wichtig.
Danke Euch allen
Markus
Folgendes funktioniert bei mir: 
Sub Excel_Serienmail_via_Outlook_Senden()
Dim OutApp As Object, Mail As Object
Dim i As Integer
Dim Nachricht
For i = 1 To 3
'Variablen müssen bei jeder Schleife neu initalisiert werden
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = Cells(i, 1) 'Adresse
.Subject = Cells(i, 2) 'Betreffzeile
.Body = Cells(i, 3) 'Sendetext
.Attachments.Add Cells(i, 4).Value
' Mail anzeigen und mit "SendKey" versenden
' bis das Mail gesendet ist, 5 Sekunden warten
.display
Application.Wait (Now + TimeValue("0:00:05"))
' mit SendKeys wird ein ALT+S ( für Senden " an Outlook geschickt
SendKeys "%s", True
End With
'Variablen zurücksetzen sonst geht es nicht
Set OutApp = Nothing 'CreateObject("Outlook.Application")
Set Nachricht = Nothing 'OutApp.CreateItem(0)
Next i
End Sub

Anzeige
AW: Hm, bei mir geht das:
14.01.2011 10:44:44
mumpel 

Die E-Mails werden ohne Nachfrage gesendet.
Du hast ja auch Outlook 2007 oder höher!? Dort ist standardmäßig so eingestellt, das bei aktuellem Antivirenprogramm aus VBA heraus ohne Meldung gesendet werden kann. Aus anderen "nicht Microsoftprogrammen" erscheint die Meldung (bei mir) trotzdem.
AW: Hm, bei mir geht das:
14.01.2011 11:48:16
Holger,
Ahh, wieder was gelernt.
Danke sehr.

110 Forumthreads zu ähnlichen Themen

Mailversand mit Anhang
Tom

Hallo zusammen,
habe eigentlich genau das im Archiv gefunden, was ich wollte - Mailversand an viele Empfänger.
Habe es auch etwas angepaßt. https://www.herber.de/bbs/user/54483.xls
Was mir jetzt noch fehlt, ist, dass ich gerne eine Datei aus dem Verzeichnis
(C:\Dokumente und Ei...
10.08.2008 09:44:49
Thread-ID: 1000570
12 Beiträge
Anzeige
Mail als Blindkopie versenden
PeterE

Hallo zusammen
da bin ich mal wieder
ich habe folgenden Befehl gefunden
Call ShellExecute(0&, "Open", "mailto:" + sAdr + "?Subject=" + sSub + "&Body=" + sBody, "", "", 1)
der funktioniert auch bestens, doch ich möchte das gleiche Mail an meherer Benutzer schicken und des...
10.12.2008 20:15:00
Thread-ID: 1031815
3 Beiträge
email mit Betreff versenden
Tobiax

Hallo!
Ich würde gerne auf Knopfdruck meine gesamte Exceldatei abc.xls versenden.
In der Betreff Zeile soll aus dem Blatt "Tabellen" die Zelle E2 verwedet werden
Die email Adressen sind Spalte A des Blattes "Verteiler" eingetragen.
Ich würde aber gerne noch einen Text selber sch...
09.03.2009 13:48:59
Thread-ID: 1058146
13 Beiträge
Anzeige
Serien-Mail mit Anhang
Boulbadaoui

Hallo,
ich versuche mit dem folgenden Makros, einen Serienmail zu gestalten, leider bekomme ich immer die Zeitlauffehlermeldung 7225!
_____________________________________________________________
Sub testmail() Dim i, empfänger, anlagen, titel, mailtext, An As Variant Dim Entwurf...
26.06.2009 14:47:56
Thread-ID: 1084609
2 Beiträge
Serien-Mail mit Anhang
Boulbadaoui

Hallo,
ich versuche mit dem folgenden Makros, einen Serienmail zu gestalten, leider bekomme ich immer die Zeitlauffehlermeldung 7225!
_____________________________________________________________
Sub testmail() Dim i, empfänger, anlagen, titel, mailtext, An As Variant Dim Entwurf...
26.06.2009 14:32:33
Thread-ID: 1084612
7 Beiträge
Email als Einfügen und Anhang senden
Volker

Hallo liebe Excel- Gemeinde,
habe da mal wieder ein Problem mit Excel und dem versenden von einer Exceldatei.
Den Code habe ich aus dem Forum, ein wenig abgeändert. Leider ist das Ergebnis nicht "vollkommen" wie ich es haben wollte
https://www.herber.de/bbs/user/65540.xls
Ich b...
03.11.2009 07:22:25
Thread-ID: 1113911
6 Beiträge
Email mit Anhang, falls Anhang verfügbar
Thomas

Hallo zusammen,
ich hänge gerade wieder an einer Stelle.
Ich habe ein Makro, welches vollautomatisch täglich Emails aus Excel mit 2 pdf-Dateien im Anhang versendet. Es werden ca. 50 Emails verschickt. Jede Mail an unterschiedliche Empfänger und mit unterschieldlichen pdf - Anhängen. Die...
02.12.2009 08:53:16
Thread-ID: 1121328
3 Beiträge
Email mit Anhang versenden ueber outlook
abu

Hallo Zusammen,
habe folgenden Code gefunden und wuerde den gerne fuer meine Beduerfnisse umstricken. Leider bekomme ich immer eine Fehlermeldung bei dieser Zeile:
.SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
Wuerde mich ueber hilfe sehr freuen...
16.12.2009 13:28:45
Thread-ID: 1122907
2 Beiträge
Anzeige

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
11
1
2
12
1
1
6
5
2
1
1
2
6
2
3
3
5
3
14
6
1
6
1
1
9