Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1140to1144
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
1140to1144
1140to1144
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

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