Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


E-Mail versenden und speichern
#1
Hallo,

ich hoffe hier kann mir jmd. helfen. Ich suche eine Möglichkeit aus Excel u. Access heraus E-Mails zu schicken u. die E-Mails im Ordner "Gesendete Objekte" zu speichern.
Im Netz habe ich nur den Tipp gefunden, dass man mit ItemAdd arbeiten soll, aber ehrlich gesagt, verstehe ich nicht, wie man mit dieser Anweisung arbeitet bzw. wie diese einzubauen ist.
Das mit dem Verschicken habe ich schon hinbekommen. Sieht so aus:
Code:
Sub LBverschicken1()

Dim outlLB As Object
Dim mailLB As Object

    Set outlLB = CreateObject("outlook.application")
    Set mailLB = outlLB.CreateItem(0)
    mailLB.Subject = "XXX " & Format(Now(), "DD.MM.YYYY")
    mailLB.To = "XXX@XXX.de"
    mailLB.Attachments.Add "XXX_" & Format(Now(), "YYMMDD") & ".xls"
    mailLB.ReadReceiptRequested = False
    mailLB.Send

End Sub

Vielen Dank schon mal für eure Tipps.
Matthias
to top
#2
Hallo Matthias,

bei mir landen die automatisch im Ordner Gesendete Objekte. Hast Du in Deinem Outlook eventuell mehrere Postfächer eingerichtet? Wenn ja, dann landen die im ersten Postfach.
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
to top
#3
Guten Morgen,

sorry, hab' mich blöd ausgedrückt. Möchte die Mails aus dem Ordner "Gesendete Objekte" auf der Festplatte im msg-Format speichern.
to top
#4
Hallo,

mit diesem code kannst Du die letzte gesendete email speichern. Pfad und vor allem Dateiname könnte man noch variabel gestalten, indem man z.B. den Betreff nimmt und ggf. noch den Zeitpunkt, damit bei gleichem Betreff nichts überschrieben wird.
Das Ding hat jedoch einen kleinen Nachteil. Wenn das Senden länger dauert, ist die Nachricht noch im Postausgang und nicht im Gesendet. Für den Fall müsste man eine ausreichende Wartezeit programmieren.

Code:
Sub SaveLastSentInFolder()
'Variablendeklarationen
'Objekte
  Dim olApp As Object 'Outlook.Application
  Dim olNameSpace As Object 'Outlook.Namespace
  Dim olSentBox As Object 'Outlook.MAPIFolder
'Outlook Objekt zuweisen
  Set olApp = CreateObject("Outlook.Application")
'Mapi zuweisen
  Set olNameSpace = olApp.GetNamespace("MAPI")
'Gesendete Objekte des Standardpostfachs zuweisen
  Set olSentBox = olNameSpace.GetDefaultFolder(olFolderSentMail)
'Letzte gesendete email speichern
'Hinweis: Senden dauert etwas, ggf. Wartezeit programmieren!
  olSentBox.Items(olSentBox.Items.Count).SaveAs "C:\Test\Test.msg"
End Sub
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
to top
#5
Hallo,

ja, so einen Code habe ich in ähnlicher Weise schon im Einsatz. Problem ist nur, dass ich mit einem Makro mehrere Mails an unterschiedliche Empfänger versende. Der Code für die letzte Mail reicht daher nicht aus. Vor allem wenn ich zwischendurch manuell noch andere Mails verschicke.
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  VBA - Nur Werte statt Formeln und Druckbereich per Mail versenden schusti77 7 149 06.01.2017, 10:06
Letzter Beitrag: schusti77
  Information an Mitgleider per eMail versenden wenn Änderung vorhanden Daniel Albert 4 101 03.01.2017, 21:52
Letzter Beitrag: Daniel Albert
  mit Excel Kalendereinträge erzeugen und versenden march 2 94 29.12.2016, 07:58
Letzter Beitrag: lupo1
  Pivot sheet ohne Zugriff auf Quelldaten versenden Excelministrant 5 129 21.12.2016, 14:27
Letzter Beitrag: Rabe
  Excel-Email versenden über excelinterne Verteilerlisten nedial 27 455 20.12.2016, 10:00
Letzter Beitrag: snb
Sad Excel file automatisch per GMAIL versenden (?) alexander.liedauer 17 703 14.12.2016, 09:17
Letzter Beitrag: RPP63
  E-Mail mit Text als Link AlpenZwerg 5 137 01.12.2016, 19:52
Letzter Beitrag: mumpel
  E-Mail aus Outlook in Excel-Gruppierung hinzufügen MacTop 6 208 15.11.2016, 11:26
Letzter Beitrag: MacTop
  E-Mail Benachrichtigung nach Änderung an einer Excel-Datei mrmbj 1 164 11.11.2016, 17:09
Letzter Beitrag: schauan
  Makro > E-Mail > Wort WAHR im Text Brotmaschine 6 254 21.10.2016, 06:52
Letzter Beitrag: Brotmaschine

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste