Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Problem mit dem Ablegen von Emails

Frage Microsoft Outlook & Mail

Mitglied: uller

uller (Level 1) - Jetzt verbinden

23.12.2005, aktualisiert 04.01.2006, 3326 Aufrufe, 5 Kommentare

Hallo zusammen,

ich habe ein Makro geschrieben, dass eine grosse Exceltabelle in mehrere kleinere Dateien "zerstückelt". Die neuen Kleinen Dateien sollten dann von Excel aus an eine Email angehängt werden und unter Entwürfe gespeichert werden. Zum Zerstückeln der grossen Datei wird immer eine Schleife durchlaufen an deren Ende untenstehendes Makro gestartet wird.
Das Makro funktioniert an sich wie es soll. Leider wird immer nur die erste kleine Datei unter Entwürfe abgespeichert. Alle nach folgenden Dateien landen im Posteingang. Wäre super, wenn mir da jemand helfen könnte!

Vielen Dank im Vorraus.

Gruss
Uller

Sub Email_anlegen()
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
AWS = Workbooks(dateineu).FullName
InitializeOutlook = True
Dim myNameSpace As Outlook.Application.Namespace
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "" & Verteiler & ""
.Subject = "Testmeldung von Excel2000 " & Date & Time
.attachments.Add AWS
.Body = "Das ist ein Test." & vbCrLf & "Bitte ignorieren."
.Save
End With
OutApp.Quit
End Sub
Mitglied: 16568
23.12.2005 um 20:54 Uhr
Wäre vielleicht auch interessant zu wissen, wenn Du die ganzen beteiligten Makros schreiben würdest. Nur so kann ich den Fehler reproduzieren.

Sowohl Outlook, als auch Excel...

Wenn die Daten zu sensibel sind, PN me.
(man beachte Mod-Status im Bereich Excel )


Lonesome Walker
Bitte warten ..
Mitglied: Biber
25.12.2005 um 15:16 Uhr
Moin Uller,

kann mich Alexander nur anschließen - ist ein bisschen schwierig mit einem so kleinen Teil-Ausschnitt den Fehler zu reproduzieren. Das Problem kann durchaus im "aufrufenden Kontext" liegen.

Die gute Nachricht: Dein Schnipselchen würde so laufen und auch nacheineinder alle Exceldateien als Mail-Attachments in "Entwürfe" ablegen, das klappt bei einer Simulation.

Die schlechte Nachricht:
Bei mir lässt sich der Makro überhaupt erst anstoßen, wenn wenigstens ein "Formalitäten" geradegezogen wurden.
~~~
Sub Email_anlegen()
<s>'Dim Nachricht As Object, OutApp As Object </s>
Dim Nachricht As MailItem, OutApp As Outlook.Application
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
....
<s>'Dim myNameSpace As Outlook.Application.Namespace</s>
Dim myNameSpace As NameSpace ' BTW ...wozu eigentlich?
'Wo machst Du denn etwas mit "myNameSpace" bzw. "deiNameSpace" ???

Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "" & Verteiler & ""
....
...
.Save
End With
' OutApp.Quit -----------??? Warum Quit? Weißt Du denn, dass Outlook vorher nicht schon gestartet war??
Set OutApp = Nothing
' set ....otherObjects to Nothing, too...
End Sub
~~~~
Evtl. lag/liegt das Problem bei Dir natürlich auch an der zu allgemeinen Typdeklaration als "Object" - ich bekomme es jedenfalls gar nicht kompiliert so wie oben.

HTH Biber
P.S.
@alexander Hu
Sowohl Outlook, als auch Excel...
Wo denn bitte sollte im Outlook etwas nötig sein??? *fragend guckt*
Bitte warten ..
Mitglied: 16568
01.01.2006 um 12:52 Uhr
Gibt ja Leutelz wie mich, die auch Outlook-Makros am Laufen haben...
(soll das Leben sehr angenehm machen )


LSW
Bitte warten ..
Mitglied: Biber
03.01.2006 um 00:51 Uhr
Moin uller,

wie ist denn der Status? Problem erledigt? Oder verstehen wir Dich nicht? Lösung selbst gefunden?

Grüße Biber
Bitte warten ..
Mitglied: uller
04.01.2006 um 14:57 Uhr
Sorry, dass ich mich erst jetzt wieder melde. Der gute Urlaub halt
Problem besteht noch. Habe Lonesome Walker, wie oben angeboten, den Quelltext mal per PN geschickt. Vielen Dank schon mal im vorraus!!

Vile Grüsse
Uller
Bitte warten ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Netzwerke
gelöst T-Online und die Sophos -Problem mit den Emails (48)

Frage von bootloader zum Thema Netzwerke ...

Windows Netzwerk
gelöst Problem mit PSexec64 von Sysinternals (7)

Frage von MaxMoritz6 zum Thema Windows Netzwerk ...

Windows Server
gelöst Problem nach DC-Installation unter Server 2012 R2 (9)

Frage von manuel1985 zum Thema Windows Server ...

Heiß diskutierte Inhalte
Windows Userverwaltung
Ausgeschiedene Mitarbeiter im Unternehmen - was tun mit den AD Konten? (34)

Frage von patz223 zum Thema Windows Userverwaltung ...

LAN, WAN, Wireless
gelöst Server erkennt Client nicht wenn er ausserhalb des DHCP Pools liegt (28)

Frage von Mar-west zum Thema LAN, WAN, Wireless ...

Windows Server
Server 2008R2 startet nicht mehr (Bad Patch 0xa) (18)

Frage von Haures zum Thema Windows Server ...