Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
26.08.2010 16:39:24 |
Helmut |
|
|
Aw:Makro das den Mailanhang als Verknüpfung ablegt |
31.08.2010 18:39:57 |
Severus |
|
|
|
31.08.2010 23:42:31 |
Severus |
|
|
Von:
Severus |
Datum:
31.08.2010 18:39:57 |
Views:
1274 |
Rating:
|
Antwort:
|
Thema:
Aw:Makro das den Mailanhang als Verknüpfung ablegt |
Helmut schrieb am 26.08.2010 16:39:24:
Hallo!
Ich habe ein Makro erstellt, das die Mails aus dem Ordner "gesendete" automatisch (abhängig vom Betreff) in einen Ordner auf dem Server ablegt. Dabei gibt es für jeden Empfänger einen seperaten Ordner am Server. Wenn ich z.B. einen CAD-Plan versende verschwende ich Speicherplatz am Server, da dann dieser Plan einmal im CAD-Ordner liegt und ein weiteres Mal von meinem Makro im Ordner des Empfängers abgespeichert wird. Wenn ich den Plan einer weiteren Person sende ist ein und die selbe Datei sogar 3 mal vorhanden usw.
Ideal wäre nun, wenn im Empfängerordner per Makro lediglich eine Verknüpfung zur Datei im CAD-Ordner erstellt werden könnte.
Ich weiss leider nicht, ob und wie das gehen könnte. Ich denke, dass es im bereits gesendeten Mail keinen Hinweis auf den Ursprungsordner des Anhanges geben wird, oder vielleicht doch?
Oder kann ich den Herkunftsordner des Anhanges während der Erstellung des Emails, also direkt beim Einfügevorgang irgendwie abfangen?
Ich hoffe, dass Ihr mir weiterhelfen könnt.
Vielen Dank schon mal.
Gruß
Helmut
Hi,
leider weiß ich bei Dir nie so genau was Du eigentlich willst bzw. wozu.
Immerhin: Führ mal die kurze Prozedur in Outlook aus. Setz aber vorher einen Verweis auf das Microsoft Excel Object Library. Outlook hat leider keinen eigenen GetOpenFileName Dialog.
Sub test()
Dim olMail As Outlook.MailItem
Dim xlApp As New Excel.Application
Dim FName As String
FName = xlApp.GetOpenFilename("All files (*.*), *.*", , "Dateianhang auswählen...")
If FName <> "" And UCase(FName) <> "FALSCH" Then
Set olMail = Application.CreateItem(olMailItem)
olMail.Body = olMail.Body & Chr(10) & Chr(10) & "File location: " & FName
End If
olMail.Display
Set olMail = Nothing
Set xlApp = Nothing
End Sub
Vielleicht kannst Du das irgendwie verwenden.
Severus |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
26.08.2010 16:39:24 |
Helmut |
|
|
Aw:Makro das den Mailanhang als Verknüpfung ablegt |
31.08.2010 18:39:57 |
Severus |
|
|
|
31.08.2010 23:42:31 |
Severus |
|
|