---

Hallo Excelprofis,

ich habe da ein Problem und hoffe auf Hilfe.
In der Suchfunktion habe ich nichts gefunden.

Vorab, ich arbeite mit Excel 2003 und bin Excel-Anfänger
Folgende Situation:

In einem Formblatt habe ich drei Zellen mit Namen definiert
Einkauf
Werkzeugkonstr
Artikelkonstr

In diese Zellen werden die entsprechenden Ansprechpartner für ein Projekt eingetragen.

Weiterhin habe ich eine „Schaltfläche“ eingefügt und mit folgenden „zugewiesen“

Sub e_mail1()

Dim sTo, sSubject, sBody As String
    sTo = "hans@muster.de"
    sSubject = "Betreff"
    sBody = "Dieser Text steht in der Mail"
   
werkzeug = ActiveWorkbook.Name
Name = Environ("Username")

hyper = "<" & "file://" & ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & ">"

Set myOlApp = CreateObject("Outlook.Application")
Set myitem = myOlApp.CreateItem(olMailItem)
Set myRecipient = myitem.Recipients.Add("bernd@muster.de")
myitem.body = "Hallo," & Chr(13) & Chr(13) & "bitte das Werkzeuglastenheft " & Chr(13) & Chr(13) & werkzeug & Chr(13) & Chr(13) & " prüfen und freigeben." & Chr(13) & Chr(13) & hyper & Chr(13) & Chr(13) & "Mit freundlichen Grüßen" & Chr(13) & Chr(13) & Name
myitem.Subject = ActiveWorkbook.Name
myitem.Display

End Sub
Soweit funktioniert bis hierher alles.

Nun aber zu meiner Frage:
Kann ich den Inhalt der drei Zellen dazu verwenden einen variablen Emailverteiler zu programmieren?

------------------
tausend und einen Gruß
Tom
-------------------------------------------
Wer von sich behauptet keine Fehler zu machen, hat mit dieser Behauptung bereits einen ganz großen Fehler gemacht ;-)

Aaaah jetzt hab ich`s.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von tobu:
Nun aber zu meiner Frage:
Kann ich den Inhalt der drei Zellen dazu verwenden einen variablen Emailverteiler zu programmieren?

---

sofern durch eine logische Operation der Inhalt der Zelle in eine mail-adresse wandeln lässt, ja, ansonsten über eine Matrix.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Öhhh, youp … genau so ….

Zitat:

---

und bin Excel-Anfänger

---

Ich entschuldige mich mal dafür, dass ich die Frage unvollständig gestellt habe.

Besser wäre wohl gewesen "… zu programmieren und hat jemand dazu ein Beispiel für einen Anfänger?"

------------------
tausend und einen Gruß
Tom
-------------------------------------------
Wer von sich behauptet keine Fehler zu machen, hat mit dieser Behauptung bereits einen ganz großen Fehler gemacht ;-)

Aaaah jetzt hab ich`s.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Tom,
Du könntest auch ohne viel programmieren mit einer Formel eine entsprechende Mail absetzten:
=HYPERLINK("mailto:"&A1&"?cc="&A2&"&subject="&A3&"&body=Hallo%0A"&A4&"%0Aprüfen und freigeben";"Mail schicken")

Grüse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

      http://www.voxelman.de

[Diese Nachricht wurde von wronzky am 03. Nov. 2011 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Wäre es eine Alternative, den Absender (in Outlook) eine Verteilerliste auswählen zu lassen, die in Outlook vorgehalten wird?

Ins Empfängerfeld würde ich dann "### Liste wählen ###" (anstelle von Set myRecipient = myitem.Recipients.Add("bernd@muster.de") eintragen - fertig.

------------------
DIN1055.de  |  Lastannahmen für Anwender

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

habe mit Unterstützung von einem Arbeitskollegen eine Lösung gefunden.

Die Zellen mit den Empfängern haben wie bereits angebenen die Namen
Einkauf
Werkzeugkonstr
Artikelkonstr

Über die Funktion Gültigkeit / Liste geben ich die Schreibweise der Empfänger vor (Drop Down).
Die in der Liste hinterlegten Namen werden von Outlook erkannt.

Dann noch
myitem.to = Range("Einkauf").Value + ";" + Range("Werkzeugkonstr").Value + ";" + Range("Artikelkonstr").Value

und alles funktioniert wie gewünscht.

Vielen Dank für Eure Unterstützung.

------------------
tausend und einen Gruß
Tom
-------------------------------------------
Wer von sich behauptet keine Fehler zu machen, hat mit dieser Behauptung bereits einen ganz großen Fehler gemacht ;-)

Aaaah jetzt hab ich`s.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP