MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Outlook (Express), sonst. Mailprogramme
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 12.02.2019, 10:09   #1
michael.woditschka@g
Neuer Benutzer
Neuer Benutzer
Standard VBA - Makro

Hallo zusammen,

Habe folgendes Makro gefunden:
Option Explicit
Sub Verteiler()


Const strVerzeichnis As String = "CeinVerzeichnis"

Dim miSenden As MailItem
Dim strFilename As String
Dim strEmpfänger As String

strFilename = Dir(strVerzeichnis & "*.pdf")
strFilename.Copy
Workbooks.Open FileName:="S:Shaha"
Range("A2").Select
ActiveSheet.Paste
Range("B2").Select
ActiveCell.FormulaR1C1 = "=+VLOOKUP(RC[-1],mapping!C1:C2,2,FALSE)"
Range("B2") = strEmpfänger

Do While strFilename > ""
Set miSenden = Application.CreateItem(olMailItem)
With miSenden
.To = strEmpfänger
.Subject = strFilename
.Body = "Anbei die Datei..." & vbLf _
& "MfG" & vbLf _
& "Absender"
.Attachments.Add strVerzeichnis & strFilename
.Display
End With
strFilename = Dir
Loop
Set miSenden = Nothing
End Sub


Hier ist es allerdings so, dass der Empfänger eine Konstante ist.
Der Empfänger sollte aber aus dem Dateiname ausgelesen werden z.B.:
Dateiname ist abc.pdf -> Empfänger ist xyz@xx.com
Habe das versucht über ein Excel zu lösen, also es wird ein Excel geöffnet, der Dateiname ausgelesen, in das Excel kopiert und dann mit Hilfe einer Formel eine E-Mail Adresse ausgegeben.
Aber wie kann ich diesen Schritt noch in das Makro einbauen.

Vielen Dank für eure Hilfe!

LG
Michael
michael.woditschka@g ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.02.2019, 15:22   #2
immelmann
MOF Meister
MOF Meister
Standard

Zitat:

Der Empfänger sollte aber aus dem Dateiname ausgelesen werden z.B.:
Dateiname ist abc.pdf -> Empfänger ist xyz@xx.com

erkläre das mal genauer

__________________

Gruss Torsten

Win 7 SP1, O2010, VB6 Pro SP6, VB2010 SP1
immelmann ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.02.2019, 16:10   #3
michael.woditschka@g
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Der Dateiname gibt nicht die E-Mail Adresse wieder und ich muss jeder Datei einen anderen EMail Empfänger zuordnen.
Daher habe ich mir gedacht dies über ein Excel zu machen. Ich kopiere den Dateinamen in A2 und in B2 wird mit Hilfe einer vlookFormel und einer Datenbasis die EMail Adresse wiedergegeben die zu genau jener Datei gehört.
Der Dateiname besteht nämlich immer aus dem Geselslchaftsnamen.
michael.woditschka@g ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.02.2019, 09:54   #4
immelmann
MOF Meister
MOF Meister
Standard

verstanden.
Du musst im Makro noch ein Excel-Application Objekt deklarieren und darüber im Outlookmakro die gewünschten Excel-Funktionen auszuführen.

__________________

Gruss Torsten

Win 7 SP1, O2010, VB6 Pro SP6, VB2010 SP1
immelmann ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.02.2019, 10:57   #5
michael.woditschka@g
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

wie mache ich das dann genau?

Danke für deine Hilfe!

LG
michael.woditschka@g ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.02.2019, 11:19   #6
mumpel
MOF Meister
MOF Meister
Standard

Hallo!

Mal als Ansatz: http://www.rholtz-office.de/counters/getfile.php?id=53
Im Beispiel erfolgt das Erstellen der Mails allerdings direkt in Excel (Outlook sollte im Hintergrund laufen).

Gruß, René
mumpel ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:32 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.