Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

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, 3339 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 ..
Ähnliche Inhalte
JavaScript
Datei auf Sharepoint über HTML ablegen (5)

Frage von 94451 zum Thema JavaScript ...

Sonstige Systeme
Software zum Parsen von Emails und PDFs (12)

Frage von Zero01 zum Thema Sonstige Systeme ...

Exchange Server
Gesendete Emails in anderem Postfach speichern fkt. nicht

Frage von Flinxit zum Thema Exchange Server ...

E-Mail
Email für Benachrichtigungen (5)

Frage von deredvtyp zum Thema E-Mail ...

Neue Wissensbeiträge
Viren und Trojaner

Ransomware or Wiper? RedBoot Encrypts Files but also Modifies Partition Table

Information von BassFishFox zum Thema Viren und Trojaner ...

Notebook & Zubehör

WOL bei HP Notebooks

(6)

Erfahrungsbericht von Henere zum Thema Notebook & Zubehör ...

LAN, WAN, Wireless

Neue Cisco Catalyst-Serie 9000

Information von Kuemmel zum Thema LAN, WAN, Wireless ...

Heiß diskutierte Inhalte
Windows 10
Netzwerkkarte schaltet sich erst nach dem Logon ein (23)

Frage von DerWoWusste zum Thema Windows 10 ...

Windows Server
Seit IP Umstellung DC DNS Fehler (18)

Frage von Yaimael zum Thema Windows Server ...

Netzwerke
Mobile Einwahl IPSec VPN von iPhone iPad T-Mobile zur Pfsense (16)

Frage von Spitzbube zum Thema Netzwerke ...

Weiterbildung
gelöst Fest angestellter Admin oder Systemhaus Admin mit Kundenbetreuung? (15)

Frage von Voiper zum Thema Weiterbildung ...