Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
972to976
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
972to976
972to976
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

E-Mail mit Lotus Notes

E-Mail mit Lotus Notes
02.05.2008 09:25:45
Peter
Hallo an alle,
mit dem unten aufgeführten Makro versende ich mit Lotus Notes ein Excel-Blatt als Anhang.
Der Empfänger wäre hier - an - "wladimir.pasulky"
Thema de Blattes ist ja "fliegende Rehe"
was ich nicht hinbekomme, wenn ich noch mehrere Leute in Kopie und noch andere in Blindkopie
dieses Blatt zukommen lassen möchte ?!

Sub Mail_Gesamt_01()
ActiveSheet.Copy
With Application
.Dialogs(xlDialogSendMail).Show _
"wladimir.pasulky@gmx.de", _
---Kopie---
---Blinkopie---
"fliegende Rehe", True
.DisplayAlerts = False
End With
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub


Gruß Peter

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
xlDialogSendMail kennt CC nicht...
02.05.2008 09:34:00
Renee
Hi Peter,
Für den Excel-Dialog xlDialogSendMail gibt es keinen Parameter für CC-recipients.
Du musst einen anderen Ansatz wählen. Mail/Lotus VBA Code gibts im Archiv zu hauf.
GreetZ Renée

AW: xlDialogSendMail kennt CC nicht...
02.05.2008 10:37:32
Uwe
Hallo Renee!
Deine Aussage trifft den Nagel auf den Kopf...
Ich aber würde eh hingehen, alle Empfänger im Code entweder durch `ne InputBox abfragen, oder wie wahrscheinlich hier gewünscht, allesamt aufführen. Diese dann einfach durch Kommata getrennt! Z.B.:
Empfänger1@xyz.de, Empfänger2@zxy.de, usw.
Anders ist für mich die Lösung nicht denkbar, da eben "nur" Visual Basic, nicht aber VBA, diese Routine kennt.
Lieben Gruß
Uwe

Anzeige
AW: xlDialogSendMail kennt CC nicht...
02.05.2008 12:00:42
Peter
Hallo Renee - Hallo Uwe,
es hätte ja mal´ sein können - trotzden Danke für Eure Mühe.
Gruß Peter

AW: E-Mail mit Lotus Notes
02.05.2008 15:09:00
mumpel
Hallo!
Wenn Du nur per Lotus sendest, dann mal damit versuchen (ungetestet, da kein Lotus verfügbar).
Sub SendNotesMail()
Application.DisplayAlerts = False
Dim Maildb As Object
Dim MailDbName As String
Dim MailDoc As Object
Dim session As Object
Dim Recipient As String
Dim e As String
Dim f As String
Dim EmbedObj As Object
Dim AttachME As Object
ActiveWorkbook.ActiveSheet.Copy
ActiveWorkbook.Save
AWS = ActiveWorkbook.FullName
Set session = CreateObject("Notes.NotesSession")
Set Maildb = session.CURRENTDATABASE
Rem On Error Resume Next 
Set MailDoc = Maildb.CREATEDOCUMENT
MailDoc.Form = "Memo"
Recipient = "meine.email@adresse.ch" 'Emailadresse 
MailDoc.sendto = Recipient
MailDoc.CopyTo = "adresse@server.de;adresse2@server.de;adresse3@server.de" 'Kopie an 
MailDoc.Subject = "Mail aus Excel"
MailDoc.SAVEMESSAGEONSEND = True
Rem Pfad zur zu versendenden Datei 
Set AttachME = MailDoc.CREATERICHTEXTITEM(ActiveWorkbook.Path & AWS)
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", ActiveWorkbook.Path & AWS)
MailDoc.PostedDate = Now()
MailDoc.SEND 0, Recipient
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set session = Nothing
Set EmbedObj = Nothing
Application.DisplayAlerts = True
Rem MsgBox "Mail versandt!" 'optional 
End Sub


Siehe auch: Excel und Word (2000 bis 2003): Als Emailanhangcolor>
Gruß, Rene

Anzeige

132 Forumthreads zu ähnlichen Themen

Excel-VBA und Lotus Notes
Markus

Hallo zusammen,
ich möchte eine Tabelle über Lotus Notes senden. Beim Verwenden des Befehls SendMail bekomme
ich eine Fehlermeldung. Gibt es für Lotus Notes andere Befehle oder weis jemand, wie das bei Lotus Notes funktioniert ?
Gruß
Markus
11.08.2008 15:07:27
Thread-ID: 1000882
4 Beiträge
Anzeige
Mail aus Excel 97 via Lotus Notes
Björn

Hallo zusammen,
habe folgenden Code im Archiv gefunden leider hängt er sich bei "Mail erstellen" an
CreateObject("Notes.NotesSession") auf. Fehlermeldung Laufzeitfehler 429
"Ojekterstellung durch ActiveXKomponente nicht möglich"
Hat jemand eine Idee wieso, und wie ich abhilfe s...
27.01.2009 11:46:09
Thread-ID: 1044145
5 Beiträge
Lotus Notes: Nutzung Mail-Vorlage
Peter

Hallo,
aus meinem Lotus Notes möchte ich gerne aus Excel heraus mails versenden, was auch funktioniert. Allerdings habe ich noch nicht den Befehl gefunden, dass standardmäßig meine Mail-Vorlage verwendet wird (Vorgaben, Allgemein und Signatur).
2. Frage: Wie kann ich mehrere Adressea...
16.12.2009 08:33:29
Thread-ID: 1123871
2 Beiträge
Anzeige
mailen in Notes
kein

Hallo, ich habe viel versucht, aber ich bin am Ende. Und es kann nicht so schwer sein....
Ich habe eine ToDo-Liste in Excel, mit lfd. Nummer, Kurztext, Beschreibung, Verantwortlichem, Termin.
Über ein Makro möchte ich nun einen Eintrag auswählen und an den Verantwortlichen senden. In de...
22.01.2010 22:03:49
Thread-ID: 1132252
2 Beiträge
Excel und Email mit Lotus Notes und Gruppen
Tobias

Hallo zusammen,
wir setzen zum Versand von EMail Lotus Notes in der Version 8 ein.
Aus Excel gelingt es mir E-Mails zu erstellen (siehe unten). Wir habe sog. Teamboxen, also zusätzliche Mail-Datenbanken, in unserer Maildatenbank integriert (Lesezeichen).
Leider gelingt es mir nicht,...
24.02.2010 12:29:58
Thread-ID: 1141030
5 Beiträge
Mailen mit Lotus Notes
Klaus

Sub KapaMailen() Sheets("Sofo").Select 'Blattschutz deaktivieren 'Blatt für Fax ActiveSheet.Shapes("Drop1").Visible = False ActiveSheet.Shapes("Drop2").Visible = False ActiveSheet.Shapes("Drop3").Visible = False ActiveSheet.Shapes("Drop4").Visible = False ActiveSheet.Shapes("Drop5").Visible =...
06.03.2010 10:01:02
Thread-ID: 1143884
2 Beiträge
Mailen mit Lotus Notes, Kopie an:
Klaus

Hallo Excelprofis, ich habe sämtliche Beiträge durchwühlt, komme aber leider nicht weiter. Ich habe mehr als 10 Mail Empfänger, sobald ich einen mehr eingebe geht das Makro stehen. Habe versucht die anderen Namen in Kopie zu nehmen, wo mein Horizont aber nicht reicht.
Könnt ihr mir bitte he...
06.03.2010 10:10:59
Thread-ID: 1143885
5 Beiträge
Sheet mit Lotus Notes versenden mit Kopie an:
Klaus

Hallo Excelprofis,
habe den gleichen Betrag schon letzte Woche eingestellt, leider bin ich nicht weiter gekommen.
Vielen dank erst mal an mumpel, aber die Makros habe nicht funktioniert. Kannst du oder jemand anders mir mal zur Hand gehen?
Ich möchte eien Mail versenden mit mehr als...
10.03.2010 01:11:35
Thread-ID: 1144701
6 Beiträge

Links zu Excel-Dialogen

InputBox

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
3
3
4
1
1
1
4
1
4
5
7
4
2
2
5
4
3
4
4
5
7
3
6
1
3