Re: Excel und Outlook

Am Sun, 5 Feb 2006 18:11:41 +0100 schrieb Dr. Eckehard Pfeifer:

Hallo, ich habe schon verstanden. Damit auch Du verstehst, hier die Details:

In Outlook programmierst Du

Sub Sendtest()
Dim mf As MAPIFolder
Dim ml As MailItem
Set mf =
Application.GetNamespace("mapi").GetDefaultFolder(olFolderDrafts)
For Each ml In mf.Items
ml.Send
Next
End Sub

und legst das ganze hinter eine Schaltflaeche. Dann werden die durch Excel
im Ordner Entwuerfe durch Save abgelegten Mails gesendet.


MfG EP
Entwicklung - Beratung - Training
(Microsoft Certified Application Developer)
www.dr-e-pfeifer.net

Hallo Eckehard,

danke für Deinen Beitrag. Deinen Code habe ich ausprobiert und der läuft
auch, wenn die Mails im Verzeichnis Entwürfe sind. Die Funktionsweise von
Deinem Makro, so muß ich allerdings leider feststellen hat keinerlei
Verbesserung gebracht, im Gegenteil alles wird langsamer.

Hier nochmals die Ergebnisse meiner Versuche.

1.) Variante, ich gebe von Excel aus den Befehl " send " ein.
... dann wird der gleiche Prozedur am Anfang ausgelöst wie die von
Deinem Makro im Nachhinein, nur ist dann die Wartezeit bei der Eingabe.

2.) Variante, ich gebe von Excel aus den Befehl " save " ein.
... dann wird jede eMail von Excel aus gang schnell in das
Outlook-Verzeichnis Entwürfe oder Postausgang gestellt. Das geschieht
wahlweise je nach Einstellung bei Outlook.
Um dann die Mails zu verschicken, muß man im entsprechenden Verzeichnis
die jeweilie Mail doppelt anklicken und dann mit Alt + s senden.
Das übertragen von Excel nach Outlook geht wie schon gesagt ganz
schnell und auch das anschließende Versenden ist nicht langsam.

3.) Variante, ich übertrage die Mails nach der Variante 2 von Excel zu
Outlook. Zum senden nehme ich Deinen Makrocode.
Dein Makrocode funktioniert nur dann wenn die Mails im Verzeichnis
Entwürfe sind. Das ist kein Problem, denn man kann ja die Entwürfe
wie schon zuvor gesagt auch mit "save" direkt in das Verzeichnis
Entwürfe bringen.
Was Dein Makro macht, ist nicht mehr als der Doppelklick auch, nur wird
dann anschließend eine lange andauernde Prozedur ausgelöst und ich muß
zuerst warten bis diese Prozedur abgelaufen ist, genau so lange wie es
bei der Eingabe dauern wenn ich mit dem Befehl "send" arbeiten würde.

Zusammenfassung.

Dein Makro an sich ist schon in Ordnung, bringt aber nichts weil da Outlook
alles ausbremst.

Die Variante 2 ist die schnellste Lösung, eigentlich zu umständlich, aber
immer noch viel schneller und einfacher als die gleich schnellen Lösungen
der Varianten 1. und 3.

Gibt es noch eine Lösung, die mit einem einzigen Klick alle Mails aus dem
Postausgang verschickt ?

Mit freundlichen Grüßen

Robert

Windows XP, Excel 2002, Outlook 2002
.

Relevant Pages

  • RE: Import of Outlook Mails to Excel Sheet
    ... It shows only partial data. ... Actually, i had around 2000 mails in my outlook, which i want to transfer to ... excel sheet to design a desired database. ...
    (microsoft.public.excel.setup)
  • Re: How can i get formatted data from outlook to excel?
    ... Use the export function of Outlook and export ... all mails of a folder into a single textfile. ... Import this file to Excel, ...
    (microsoft.public.excel.worksheet.functions)
  • RE: Import of Outlook Mails to Excel Sheet
    ... Exactly what data did you want to export from Outlook to Excel? ... > the each mails to excel. ... > Ajay Bhatnagar ...
    (microsoft.public.excel.setup)
  • Nochmal: Serienmail
    ... Ich möchte aus Word 2002 heraus via Outlook personalisierte Serienmails ... Die Merge-Daten kommen aus Excel. ... Ausserdem sollen die Mails einen allgemeinen - also unpersonalisierten - ... Wie kann ich diesen anhängen, ...
    (microsoft.public.de.word)
  • Installing/uninstalling Office XP Pro - HELP!!!
    ... Setup path: D:\WWW\Microsoft Office XP PRO (word, excel, powerpoint, ... D:\WWW\Microsoft Office XP PRO (word, excel, powerpoint, outlook, ...
    (microsoft.public.windowsxp.help_and_support)