Office: Adressen aus Outlook in Makro integrieren

Hallo zusammen!

Ich habe folgendes Problem. Ich möchte gerne ein in Word ein Makro erstellen, das beim Aufrufen das Dokument automatisch an bestimmte Empfänger sendet.

Wenn ich das Makro aufzeichne werden aber die Personen, an die ich das Dokument schicken möchte, nicht gespeichert, sodass sie immer noch von Hand eingegeben werden müssen.

Gibt es da eine Möglichkeit, Kontakte oder eine Verteilerliste im Makro zu speichern?

Vielen Dank!!

Tobias

 

Hi,

willst Du den Empfänger fest einprogrammieren oder soll der ggf. durch einen Dialog abgefragt werden?

BTW: mit welchem Code arbeitest Du denn jetzt genau? Kannst Du den mal hier posten?

Und auch noch wichtig: welche Wordversion?

Schau doch mal ein paar Beiträge weiter unten - dort habe ich eine Dokumentvorlage zum Download gestellt. Die liest die Kontakte von Outlook aus. Vielleicht hilft das schon....

Oder probier mal diesen kleinen Code zum Aufruf des Adressbuches:

Code:

Dim strAdresse As String
With Application
strAdresse = .GetAddress
If strAdresse > "" Then
    MsdgBox strAdresse
End If
End With

 

Die Empfänger sollten fest einprogrammiert werden, es ist kein Auslesen der Kontakte von Outlook nötig.
Ich benutze Microsoft Office Word 2003.

Ich kenne mich leider mit den codes nicht aus. Ich habe das Makro über die Aufnahme-Funktion erstellt. Das Problem ist, dass nach beenden des Programms und Neustart die Informationen über die Empfänger gelöscht sind.

Der durch die Aufzeichnung erstellte code ist folgender:

Sub Makro1()
'
' Makro1 Makro
' Makro aufgezeichnet am 4/19/2006 von
'
ActiveWindow.EnvelopeVisible = Not ActiveWindow.EnvelopeVisible
End Sub

Gruß,

Tobias

 

Hi,

dann versuch es mal so:

Code:

Dim Mail As Object

Set outl = CreateObject("Outlook.application")
Set Mail = outl.CreateItem(olMailItem)
Mail.Subject = "Mail"
Mail.To = "Mail@domaine.de"

Mail.Send

Set outl = Nothing
Set Mail = Nothing

Das ist erstmal auf die Schnelle weil ich im Moment wenig Zeit habe. Bin erst heute abend wieder im Forum....

 

Hi,

funktioniert soweit, nur dass das Dokument selbst nicht mitgesendet wird.

Glaube, man müsste da noch was ergänzen...


danke,

gruß

tobias

 

Hi,

das Dokument (aktive Dokument) kannst Du so versenden:

Code:

Mail.Attachments.Add ActiveDocument.FullName

Den Code vor dem Befehl "Mail.Send" schreiben.

Aber bitte beachten: Du kannst nur ein gespeichertes Dokument als Anlage versenden! Daher muss das Aktive Dokument gespeichert sein....

 

Ok, super, das funktioniert.
Jetzt nur noch eine Frage:
Wenn ich das Dokument an mehrere Empfänger versenden möchte, wie mache ich das?
Ich habe schon probiert, einfach eine weitere Zeile mit
Mail.To = "Mail@domaine.de"
zu schreiben, das funktioniert aber nicht.

gruß,

tobias

 

HAb das Problem selbst gelöst. Danke vielmals für die Hilfe!!

Gruß,

Tobias