Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
920to924
920to924
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro xls -> PDF -> Lotus Notes versenden

Forumthread: Makro xls -> PDF -> Lotus Notes versenden

Makro xls -> PDF -> Lotus Notes versenden
27.10.2007 15:24:00
Ina
Liebe Excel-Freunde,
habe folgendes Problem und hoffe, dass ihr mir helfen könnt.
https://www.herber.de/bbs/user/47177.xls
Ich möchte mit einem Makro die Excel Datei als PDF drucken und dann an die Länder bei denen ein X ist, und somit die e-mail Adresse angezeigt wird, als Anlage über Lotus Notes versenden. Der Betreff kann der Datei-Name sein.
Weiß zufällig jemand wie das geht? Zur Not könnte ich mich auch mit der Lösung zufrieden geben, dass die Excel Datei nur mit Werten versendet wird.
Wäre soooooooooooooo dankbar.

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro xls -> PDF -> Lotus Notes versenden
28.10.2007 06:18:04
Stefan
Hallo Ina,
anbei ein Beispiel zur PDF Erzeugung, musst du ggf. von der Schnittstelle her mit dem Markorecorder aufzeichnen und dann anpassen nach meinem Schema.
Application.ActivePrinter = "maxx PDFMAILER Standard auf LPT1:" ~f~ ' hier den Fax namen eingeben ( am besten ein makro aufzeichnen: Datei, Drucken, Fax auswählen und wieder abbrechen. jetzt den Fax Namen aus dem Modul Rauskopieren und hier einfügen
Sheets("artikel bestellen").PrintOut ' Druckbereich
Application.Wait Now + TimeSerial(0, 0, 3) ' Prozedur wird für 3 sek. 'in zelle B5 steht die Nr. an die das Fax geschickt wirdunterbrochen
~f~'SendKeys "{tab}" & (Range("an22").Value & "{tab}" & "{tab}" & Range("aq21").Value & "{tab}~f~
~f~" & Range("bg130").Value & "{enter}")~f~
SendKeys "{tab}" & (Range("a4").Value & "{tab}" & "{tab}" & Range("q6").Value & "{enter}") 'hier bekommt die PDF automatisch Ihren Dateinamen
Application.Wait Now + TimeSerial(0, 0, 6)
SendKeys (Range("i11").Value) ' hier übergebe ich die E-Mail Adresse
die gehören nicht zum Code, nur sonst kann ich das hier nicht eingeben
Hoffe, ich konnte dir helfen.
Gruß
Stefan
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
Anzeige
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
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
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

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige