Thema Datum  Von Nutzer Rating
Antwort
26.08.2010 16:39:24 Helmut
NotSolved
31.08.2010 18:39:57 Severus
NotSolved
Rot Aw:Makro das den Mailanhang als Verknüpfung ablegt
 31.08.2010 23:42:31 Severus
NotSolved

Ansicht des Beitrags:
Von:
Severus		 Datum:
31.08.2010 23:42:31		 Views:
1374		 Rating:
     
Antwort:
  Ja
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


Das Problem ist, daß man nach dem send Befehl keine Zugriff mehr auf das Mailitem hat. Auch wenn man es zuvor mit set einer Objektvariablen zugewiesen hat.
Inhouse kannst Du das machen indem Du überhaupt nur einen Links oder den Speicherort als Text versendest.

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
'olMail.Attachments.Add FName, olByValue 'als Datei
'olMail.Attachments.Add FName, olByReference ' als Link
olMail.Send
End If
olMail.Display
Set olMail = Nothing
Set xlApp = Nothing
End Sub

Hinterher die Mail per Makro wieder suchen geht zwar prinzipiell, setzt aber Kenntnisse der internen Struktur bei Dir voraus.
Sonst funktioniert das etwa so:
Dim olMails as Outlook.Items
Dim olMail as Outlook.MailItem
Dim olAtt as Outlook.Attachment

Set olMails = Application.GetNamespace("MAPI").Folders("Öffentliche Ordner") _
.Folders("Alle Öffentlichen Ordner").Folders("abc").Folders("def") _
.Items.Restrict("[MessageClass] = 'IPM.Note'")

For Each olMail in olMails
For Each olAtt in olMail.Attachments
If olAtt.Type = olByValue Then
olAtt.Delete
End If
Next
Next

Das bedingt aber, daß Du beim Erstellen schon neben dem File auch einen Link eingegeben hast. Womit der Empfänger natürlich nichts anfangen kann.

Severus

Ihre Antwort
  • 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: Name: Email:



  • 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
NotSolved
31.08.2010 18:39:57 Severus
NotSolved
Rot Aw:Makro das den Mailanhang als Verknüpfung ablegt
 31.08.2010 23:42:31 Severus
NotSolved