Office: per Mail verschicken

Hallo zusammen,

Ist es möglich wenn ich in Spalte C Daten habe mit Hyperlinks ( "PDF Dateien")

und ich schreibe in Spalte G ein "X" in eine Zelle das mir dann ein VBA die Daten von den Hyperlinks in eine Mail versammelt in der das "X" in der Spalte steht.

Sozusagen, wenn in Spalte G ein "X" in Zelle 5, 9, 14 steht, soll ein VBA mir die pdf. Dateien die ja über Hyperlinks in Spalte C hinterlegt sind, in eine Mail versammeln zum verschicken?

vielen Dank schon mal für ne Lösung

MFG

besserleben

:)

 

Hallo
Wie stellst du dir den Ablauf im Detail vor?
PDF`s werden anhand deiner Liste an eine Mail gehängt.
Soll nun eine Neue Mail geöffnet werden wo du Betreff und Empfänger selbst eingeben musst, oder sind diese Daten in der Exceltabelle enthalten?
Oder geht alles immer an die gleiche Adresse?

Gruss,

Tinker Bell

 

Hallo zusammen,

ich habe verstanden, dass sich der Empfänger aus der entsprechenden Spalte ergibt: Bei einem X in Zelle G5 dürfte der richtige Empfänger demnach in G1/G2 stehen.

Eine kleine Beispieldatei wäre hilfreich, damit man das Makro auf die richtige Tabellenstruktur anpassen kann.

VG
Santa

 

Hi,

Code:

 

Hi,

Funktioniert irgendwie nicht.

Hab mal ne Datei angefügt


Danke schon mal

 

Hallo "besserleben"...????

...was genau funktioniert nicht???

...Beverly's Code für die Erstellung der E-Mail beruht auf Deine Aussage mit den "X"en...1. kann ich in Deiner geposteten Datei keine "X"e finden und 2. in welchem Tabellenblatt sollen die "X"e denn nachher stehen...also ein paar Erklärungen mehr zu Deiner lapidar (...Hab mal ne Datei angefügt...*freu*) geposteten Datei sollte schon drin sein...gell *wink.gif*

Gruß
Thomas

 

Hi,

Ich hab mal ne leere Tabelle angesteckt, mit dem Code von Beverly.

Ich bekomme wenn ich ein X in Zelle 7 einschreibe und in Tabelle3 einen Hyperlink habe zur PDF immer einen Laufzeitfehler.
.ReadReceiptRequested = False
For lngZaehler = 0 To UBound(arrDateien())
.attachments.Add arrDateien(lngZaehler)

in dem Teil des Macros.

mfg

Besserleben

 

Hallo...

...Deine Erklärung zu Deiner "leeren" Datei (vielleicht die relevanten Werte wie "X" und "Hyperlink" mal eintragen!!!???) ist für mich so wirr wie Deine Code-Ansammlung in der Datei selbst...sorry *wink.gif*
Versteh mich bitte nicht falsch, vom Grundprinzip weiß ich schon, was Du genau möchtest...ein Code zum Versenden einer E-Mail mit Anhang, der per Hyperlink aus einer Zelle eingelesen wird...alles kein Problem (gibt's übrigens wie Sand am Meer im "www.")....aber die Geschichte mit Deinen "X"en kann ich überhaupt nicht nachvollziehen...wie Tinker Bell gleich zu Anfang schon schrieb...

...also bitte...Dein Auftritt *mrcool

Gruß
Thomas

 

Hi,

wieder einmal eine Aussage oberster Güteklasse - "funktioniert nicht" - Damit kann man wirklich sehr viel anfangen ...

In welcher Spalte stehen die Hyperlinks zu den anzuhängendenn Dateien? In Spalte A sind nur Links zu anderen Tabellenblättern und in Spalte G steht nirgendwo ein X. Also wenn du eine Mappe hochlädst, dann sollte sie schon auch die Bedingungen enthalten, die du realisieren willst.

 

Hallo,

Sorry ich werd heute noch die richtige Datei hochladen.

Sorry nochmal

 

Hi,

Hab das Makro von Beverly eingefügt und auf die Spalten die ich brauche geändert.
Bekomme immer noch den Fehler zum Ende des Makros.

.ReadReceiptRequested = False
For lngZaehler = 0 To UBound(arrDateien())
.attachments.Add arrDateien(lngZaehler)
Next lngZaehler

 

Hi,

noch eine Aussage oberster Güteklasse "Bekomme immer noch den Fehler zum Ende des Makros" - und WAS für eine Fehlermeldung (Text den der Debugger anzeigt)?

Ich erhalte selbstverständlich auch eine Fehlermeldung, weil es die Datei 10152256.pdf bei mir nicht gibt. Wenn ich dort jedoch den Link zu einer tatsächlich exisiterenden Datei eintrage, wird alles korrekt ausgeführt.

Ergänze mal zu Testzwecken den Code um die rot markierte Zeile und führe ihn am besten im Einzelschrittmodus aus:

Code:

Was wird dir in der MsgBox angezeigt?

 

Hi

Ich hab nochmal eine Testexcel angehängt.

Hab dein Makro eingefügt.

Fehlermeldung bleibt die gleiche.
Die Abfrage habe ich eingefügt, Sagt er mir die Datei, passt ja soweit.
Dann läuft das Makro weiter und er findet es nicht mehr anscheinend.
Beim Einzelabruf kommt die Fehlermeldung die ich auch angehängt habe.

 

Hi,

hast du mal das ausgeführt was ich in meinem vorhergehenden Beitrag geschrieben habe?

 

Hallo Karin,

...hat er...

bei mir funktioniert es allerdings auch nicht...obwohl ich eine 10152256.pdf Datei zu dem Link in Spalte "C" hinterlegt habe, erhalte ich ebenfalls die selbe Fehlermeldung...und da ich endlich wissen möchte, woran das liegt, dass es bei Dir funktioniert und bei "uns" nicht, habe ich Dir die MsgBox-Meldung einmal mit rangehängt...mir ist bei der MsgBox-Meldung allerdings aufgefallen...hätte hier nicht die gesamte Linkadresse angezeigt werden müssen???

Gruß
Thomas