Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1140to1144
1140to1144
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mailen mit Lotus Notes, Kopie an:

Forumthread: Mailen mit Lotus Notes, Kopie an:

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 helfen?
Siehe Makro: 

Sub KapaMailenCKSZ2()
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 = False
ActiveSheet.Shapes("Drop6").Visible = False
ActiveSheet.Shapes("Drop7").Visible = False
ActiveSheet.Shapes("Drop8").Visible = False
ActiveSheet.Shapes("Drop9").Visible = False
ActiveSheet.Shapes("Drop10").Visible = False
ActiveSheet.Shapes("Drop11").Visible = False
ActiveSheet.Shapes("Mail").Visible = False
Columns("AH:BZ").Select
Selection.EntireColumn.Hidden = True
Rows("68:110").Select
Range("A110").Activate
Selection.EntireRow.Hidden = True
Range("AL21").Select
ActiveSheet.Copy
ActiveSheet.Cells.Copy
ActiveSheet.Cells.PasteSpecial xlValues
Range("L13").Select
'Mail-Adressen
ActiveWorkbook.SendMail Range("AI63") & Range("AI66")
sKopie = "L.RSC#B9596123199@fax,H.F.#B93304042588@fax,L#B959650404404@fax"
'ActiveWorkbook.SendMail "     @internet", "Verständigung"
'ActiveWorkbook.SendMail "     @internet", "Verständigung"
'ActiveWorkbook.SendMail "     @internet", "Verständigung"
Application.CutCopyMode = False
ActiveWorkbook.Close savechanges:=False
'Blatt für Fax - zurück
Columns("AH:BZ").Select
Selection.EntireColumn.Hidden = False
Rows("68:110").Select
Range("A110").Activate
Selection.EntireRow.Hidden = False
ActiveSheet.Shapes("Drop1").Visible = True
ActiveSheet.Shapes("Drop2").Visible = True
ActiveSheet.Shapes("Drop3").Visible = True
ActiveSheet.Shapes("Drop4").Visible = True
ActiveSheet.Shapes("Drop5").Visible = True
ActiveSheet.Shapes("Drop6").Visible = True
ActiveSheet.Shapes("Drop7").Visible = True
ActiveSheet.Shapes("Drop8").Visible = True
ActiveSheet.Shapes("Drop9").Visible = True
ActiveSheet.Shapes("Drop10").Visible = True
ActiveSheet.Shapes("Drop11").Visible = True
ActiveSheet.Shapes("Mail").Visible = True
Range("AL21").Select
End Sub



Sub KapaMailenCKSZ2()

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 = False

ActiveSheet.Shapes("Drop6").Visible = False

ActiveSheet.Shapes("Drop7").Visible = False

ActiveSheet.Shapes("Drop8").Visible = False

ActiveSheet.Shapes("Drop9").Visible = False

ActiveSheet.Shapes("Drop10").Visible = False

ActiveSheet.Shapes("Drop11").Visible = False

ActiveSheet.Shapes("Mail").Visible = False

Columns("AH:BZ").Select

Selection.EntireColumn.Hidden = True

Rows("68:110").Select

Range("A110").Activate

Selection.EntireRow.Hidden = True

Range("AL21").Select

ActiveSheet.Copy

ActiveSheet.Cells.Copy

ActiveSheet.Cells.PasteSpecial xlValues

Range("L13").Select

'Mail-Adressen

ActiveWorkbook.SendMail Range("AI63") & Range("AI66")

sKopie = "L.RSC#B95961399@fax,H.Fischer#B9332588@fax,LQZC#B95965404@fax"

'ActiveWorkbook.SendMail "     @internet", "Verständigung"

'ActiveWorkbook.SendMail "     @internet", "Verständigung"

'ActiveWorkbook.SendMail "     @internet", "Verständigung"

Application.CutCopyMode = False

ActiveWorkbook.Close savechanges:=False

'Blatt für Fax - zurück

Columns("AH:BZ").Select

Selection.EntireColumn.Hidden = False

Rows("68:110").Select

Range("A110").Activate

Selection.EntireRow.Hidden = False

ActiveSheet.Shapes("Drop1").Visible = True

ActiveSheet.Shapes("Drop2").Visible = True

ActiveSheet.Shapes("Drop3").Visible = True

ActiveSheet.Shapes("Drop4").Visible = True

ActiveSheet.Shapes("Drop5").Visible = True

ActiveSheet.Shapes("Drop6").Visible = True

ActiveSheet.Shapes("Drop7").Visible = True

ActiveSheet.Shapes("Drop8").Visible = True

ActiveSheet.Shapes("Drop9").Visible = True

ActiveSheet.Shapes("Drop10").Visible = True

ActiveSheet.Shapes("Drop11").Visible = True

ActiveSheet.Shapes("Mail").Visible = True

Range("AL21").Select

End Sub

Anzeige

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

Betreff
Benutzer
Anzeige
AW: Mailen mit Lotus Notes, Kopie an:
06.03.2010 10:10:59
Klaus
In AI 63 & AI 66 sind 10 Mailsdressen hinterlegt.
AW: Mailen mit Lotus Notes, Kopie an:
06.03.2010 12:21:07
Klaus
Danke mumpel,
das makro bleibt immer bei dem Abschnitt hängen.
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", ActiveDocument.Path & AWS)
Muss ich da was nachtragen?
Gruß Klaus
AW: Mailen mit Lotus Notes, Kopie an:
06.03.2010 12:45:31
mumpel
Du hast den Code für Word genommen (Aktives Dokument als Emailanhang), was aber falsch ist. Richtig wäre der Code für "Arbeitsmappe als Emailanhang" oder " Aktive Tabelle als Emailanhang".
Anzeige
;

Forumthreads zu verwandten 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
Mail über Lotus Notes - Noch 1 Problem :)
Christoph

Erst mal Hallo zusammen!
Ich bin neu hier im Forum und möchte mich an dieser Stelle auch erst mal für die vielen guten Tips, die mir immer geholfen haben bedanken!
Nun möchte ich mich auch etwas am Geschehen beteiligen und bringe auch gleich noch 1 Frage mit...
Folgendes:
Also i...
12.01.2009 14:59:25
Thread-ID: 1038874
4 Beiträge
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
Anzeige
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
Lotus-Notes-Mail mit Anhang aus Excel
Wilfried

Hallo und guten Tag,
folgendes Makro habe ich im Forum gefunden. Es bleibt immer an der Zeile
(Set MailDoc = Maildb.CREATEDOCUMENT) stehen, warum? ... und was muss ich tun, damit der Code mit abgespeichert wird?
Sub SendNotesMail() Dim Maildb As Object Dim MailDbName As String Dim M...
13.01.2010 14:25:25
Thread-ID: 1129487
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
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
Abfrage Lotus Notes vorhanden ?
walli

Hallo zusammen,
ich such schon die ganze Zeit nach einem Makro, es soll geprüft werden,
ob Lotus Notes auf dem Rechner ist.
Wenn ja Makro weiter sonst kein Lotus Notes vorhanden.
Kann man evtl. auch prüfen welches Mail System installiert ist ?
mfg walli
08.04.2010 14:35:22
Thread-ID: 1150677
8 Beiträge
Empfänger für Lotus Notes Mail aus Exceltabelle au
Wolfgang

Hallo liebe Excel-Experten !
In einem früheren Posting (auf das ich irgendwie leider nicht zugreifen kann, um dort einen Folgebeitrag zu schreiben), hatte ich gefragt, wie man den Empfänger einer LotusNotes-Mail aus einer
Excel-Tabelle auslesen kann. Ein User namens Andre hat mir danke...
20.05.2010 09:00:38
Thread-ID: 1157953
5 Beiträge
Anzeige
Notes - Emailempfänger aus Zelle auslesen
Wolfgang

Hallo Experten !
Ein begeisterter, aber leider sehr unwissender VBA-Nutzer hofft mal wieder auf Eure Unterstützung.
Dank freundllicher Hilfe dieses Forums habe ich eine Automatik zur Verfügung, um aus einem Excel-Arbeitsblatt E-Mails per Lotus Notes zu versenden. Unter anderem werden di...
14.06.2010 17:14:53
Thread-ID: 1161802
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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