MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Visual Studio /.NET > Visual Basic für Windows (alle Versionen bis 6.0)
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 31.07.2017, 17:44   #1
Isus90
Neuer Benutzer
Neuer Benutzer
Standard ActiveX - Makro - Datei mit variablem Namen speichern

Guten Abend allerseits,

ich habe mich hier angemeldet, weil ich einfach nicht mehr weiter mit meinem Makro weiß. Ich habe davon eigentlich keine Ahnung (habe mir nur im Internet Sachen zusammen gesucht) und hoffe, dass mir hier jemand weiter helfen kann.

Was es können soll: Es geht um ein Formular für Rücksendungen von Kunden, das einmal ausgefüllt in einem eigenen Ordner nach dem Schema "Rücksendung_Kundenname" abgespeichert und auch per Mail an eine Person geschickt werden soll, die sich weiter um die Bearbeitung kümmert. Der Kundenname steht in einer Zelle im Reiter "Formular". Zuerst war gedacht auch noch das Datum mit aufzunehmen, das muss aber eigentlich nicht.

Es hängt bei mir daran, dass ich es einfach nicht hinbekomme die Datei mit dem variablen Kundennamen abzuspeichern :/

Hier ist was ich soweit habe:

Sub PDFundSenden()
ChDir "F:dokumentePDFCRM"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"F:dokumentePDFCRMRücksendungPDF.pdf"& Format(Now, "YYYY.MM.DD - hh.mm") & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Dim Outlook As Object
Dim OutlookMailItem As Object
Dim myAttachments As Object

Set OutlookApp = CreateObject("outlook.application")
Set OutlookMailItem = OutlookApp.CreateItem(0)
Set myAttachments = OutlookMailItem.Attachments

With OutlookMailItem
.to = "XXXXXX@XXXXXX.de"
.Subject = "Rücksendung vom " & Date & Time (hier sollte eigentlich besser Rücksendung von + Kundenname stehen)
.Body = "Eine neue Rücksendung ist eingetroffen. Bitte bearbeiten."
myAttachments.Add "F:dokumentePDFCRMRücksendung.pdf" & Format(Now, "YYYY.MM.DD - hh.mm") & ".pdf"
'.Display
.send

End With

Set OutlookApp = nothing
Set OutlookMailItem = nothing

End Sub


Für euch ist das wahrscheinlich kinderleicht, aber ich hab davon wirklich keine Ahnung...
Isus90 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 01.08.2017, 12:21   #2
haklesoft
MOF Koryphäe
MOF Koryphäe
Standard

Hallo und willkommen,

am Eingang zu diesem Teil des Forums steht zu lesen, dass wir uns hier mit traditionellem Visual Basic bis zur Version 6.0 befassen, aber eben NICHT mit Office-VBA.

Die Outlook-Ecke hast Du ja schon gefunden.

Vielleicht hilft Dir auch jemand im Excel-Unterforum.

__________________

Hang loose, haklesoft
haklesoft ist offline  
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 10:22 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 - 2017, Jelsoft Enterprises Ltd.

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