VBOffice

Word-Datei als Anlage versenden

So versenden Sie Dokumente aus Word, ohne dass dadurch das Outlook-Fenster blockiert wird.

Zuletzt geändert: 14.10.2014 | Aufrufe: 53.727  | #108
◀ Vorheriges Beispiel Nächstes Beispiel ▶
ReplyAll ReplyAll
Mit diesem Addin für Outlook erhalten Sie in verschiedenen Situationen eine Warnung, bevor Sie auf eine Email versehentlich allen anderen Empfängern antworten.

Word bietet die Möglichkeit, das aktuelle Dokument als Anlage an Outlook zu senden, so dass Sie das Dokument mit einer Email versenden können. Dabei wird aber das Email-Fenster modal geöffnet, d.h. alle anderen Fenster in Outlook sind blockiert, solange die Email angezeigt wird. Sie können in der Zeit z.B. nicht in den Kalender sehen oder Daten aus einer anderen Email kopieren. Es gibt weitere Outlook-spezifische Funktionen, die bei dieser Methode nicht funktionieren, so z.B. das automatische Einfügen der Signatur.

Dieses VBA-Makro für Word umgeht die Einschränkungen. Öffnen Sie den VBA-Editor in Word, fügen Sie dem Projekt "Normal" ein Standardmodul hinzu und fügen Sie dort den Code ein. Aus dem Dokument heraus starten Sie das Makro mit alt+f8.

Das Makro geht davon aus, dass Outlook bereits läuft. Wenn das Word-Dokument schon gespeichert wurde, wird sofort eine neue Email mit der Anlage erstellt. Wenn das Dokument noch nicht gespeichert wurde, dann werden Sie dazu aufgefordert.


tip  So fügen Sie Makros in Outlook ein
Public Sub AttachToEmail()
  Dim Outlook As Object
  Dim Mail As Object
  Dim Att As Object
  Dim Fullname As String
  Dim Dlg As Office.FileDialog

  If ActiveDocument.Saved Then
    Fullname = ActiveDocument.Fullname
  Else
    Set Dlg = Application.FileDialog(msoFileDialogSaveAs)
    Dlg.Show
    If Dlg.SelectedItems.Count Then
      Fullname = Dlg.SelectedItems(1)
      ActiveDocument.SaveAs Fullname
    Else
      Exit Sub
    End If
  End If

  Set Outlook = GetObject(, "outlook.application")
  Set Mail = Outlook.CreateItem(0)
  Set Att = Mail.Attachments.add(Fullname)
  Mail.Subject = Att.DisplayName
  Mail.Display
End Sub
Category-Manager Category-Manager
Mit dem Category-Manager können Sie Outlook Kategorien gruppieren, synchronisieren und filtern, neuen Emails automatisch die Kategorie des Absenders zuweisen und vieles mehr. Das Addin ist auch für IMAP geeignet.
email  Senden Sie eine Nachricht