Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
656to660
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
656to660
656to660
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Mail Verteiler in Excel bearbeiten

Mail Verteiler in Excel bearbeiten
23.08.2005 18:43:19
chris
Hallo VBA Profis,
ich habe ein großes problem und hoffe auf euere guten Kenntnisse und das ihr mir weiterhelfen könntet.
es geht um Mail besser um verteilerlisten in Excel.
Dort kann ich unter senden an mehere user eintragen also verteilerlisten.Um diese einzutragen habe ich schon mal 2 Makros vorbereitet.Mit diesen funktioniert das auch schon Prima nur leider noch Manuel.Mit den beiden unten angefügten makros kenn ich user eintragen lassen in die liste und auslesen.
Aber die user die ich eintragen möchte muss ich per hand manuel eingeben.ich möchte das das automatisch geht.und wazr das mir mein zweites Makro alle user ausliest und diese dann mit dem anderen Makro wieder in die Liste einfügt.Bei meinen bisherigen versuchen kommt immer die meldung das der sogenannte e-mail user nicht in dem Addressbuch gefunden wird das ich im Outlook benutze.ich denke da klappt was mit den sionderzeichen nicht.Ich hoffe ich habe es einigermaßen verständlich erklärt und ihr könnt mir helfen.
Vielen dank und schönen Tag noch Christian

Sub eintragen()
ActiveWorkbook.HasRoutingSlip = True
With ActiveWorkbook.RoutingSlip
.Recipients = Array("testuser nummer 1 *", "testuser nummer 2 *")
.Subject = "Weiterleiten: Mappe1"
.Message = ""
.Delivery = xlOneAfterAnother
.ReturnWhenDone = True
.TrackStatus = True
End With
End Sub


Sub auslesen()
cb = UBound(ActiveWorkbook.RoutingSlip.Recipients)
For x = 1 To cb
userwer = ActiveWorkbook.RoutingSlip.Recipients(x)
Next
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mail Verteiler in Excel bearbeiten
24.08.2005 00:17:30
Ramses
Hallo
probiers mal so
Option Explicit

Sub Excel_Serienmail_via_Outlook_Senden()
    Dim OutApp As Object, Mail As Object
    Dim i As Integer
    Dim myMessage As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set myMessage = OutApp.CreateItem(0)
    With myMessage
        .To = myUserList
        .Subject = "Betreffzeile Header"
        .Body = "Sendetext"
        'Hier wird die Mail zuerst angezeigt
        '.Display
        'Hier wird die Mail gleich in den Postausgang gelegt
        .Send
    End With
    'Variablen zurücksetzen
    Set OutApp = Nothing
    Set myMessage = Nothing
End Sub

Function myUserList() As String
    Dim myC As Range, myUser As String
    Dim x As Integer, y As Integer
    x = Selection.Rows.Count
    y = 1
    For Each myC In Selection
        myUser = myUser & myC.Value & ";"
        y = y + 1
    Next
    myUserList = Left(myUser, Len(myUser) - 1)
End Function

Gruss Rainer
Anzeige
AW: Mail Verteiler in Excel bearbeiten
24.08.2005 07:18:37
chris
Hallo danke für deine Antwort.
Aber das ist ja etwas ganz was anderes.
Danke trotzdem obwohl ich dmit nichts anfangen kann weil ich meine Methode umgesetzt bräuchte.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige