Adressen aus Outlook in Makro integrieren :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

Adressen aus Outlook in Makro integrieren

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Word Hilfe

Autor

Nachricht

tobiasba
Newbie
Newbie

Anmeldedatum: 19.04.2006
Beiträge: 5

Verfasst am: 19.04.2006, 11:27

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

freaky
Moderator

Anmeldedatum: 11.04.2006
Beiträge: 751
Wohnort: im Norden

Verfasst am: 19.04.2006, 12:33

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

_________________
Gruß
freaky
----------------------------------------------------------------
Windows 2000, Windows XP
Office 97, Office 2000, Office 2003 und Office 2007
_____________________________________________
Feedback nicht vergessen....
---------------------------------------------------------------

tobiasba
Newbie
Newbie

Anmeldedatum: 19.04.2006
Beiträge: 5

Verfasst am: 19.04.2006, 13:16

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

freaky
Moderator

Anmeldedatum: 11.04.2006
Beiträge: 751
Wohnort: im Norden

Verfasst am: 19.04.2006, 13:24

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....

tobiasba
Newbie
Newbie

Anmeldedatum: 19.04.2006
Beiträge: 5

Verfasst am: 19.04.2006, 13:38

Hi,

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

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

danke,

gruß

tobias

freaky
Moderator

Anmeldedatum: 11.04.2006
Beiträge: 751
Wohnort: im Norden

Verfasst am: 19.04.2006, 20:17

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....

tobiasba
Newbie
Newbie

Anmeldedatum: 19.04.2006
Beiträge: 5

Verfasst am: 20.04.2006, 11:02

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

tobiasba
Newbie
Newbie

Anmeldedatum: 19.04.2006
Beiträge: 5

Verfasst am: 20.04.2006, 11:13

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

Gruß,

Tobias

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Word Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Makro gesucht Zeile kopieren und in j...	philipp.geyer	Microsoft Excel Hilfe	4	05.09.2008, 15:59
	[Outlook 2003] Relay access denied (...	chaosheorie	Microsoft Outlook Hilfe	2	04.09.2008, 10:18
	Start von Outlook nicht mehr möglich!!!	e-Angel	Microsoft Outlook Hilfe	1	03.09.2008, 14:46
	Makro das email loescht	stom	Microsoft Outlook Hilfe	0	03.09.2008, 13:20
	Excel spielt verrückt, Makro funktion...	Frederic	Microsoft Excel Hilfe	3	02.09.2008, 12:59

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de