Datum und Zeit in Excel

Tipp des Tages – Datum und Zeit in Excel

Ein wichtiges Thema in Microsoft Excel ist das rechnen mit Datum und Zeit.  Excel unterscheidet zwischen einem festen und forlaufenden Daten.

Sie möchten in einer Formel das fortlaufende aktuelle Datum einfügen? Zwei Formeln helfen Ihnen dabei

=heute()
=jetzt()

Sie möchten das heutige Datum in  eine Zelle schreiben?
Die Tastenkombination STRG + . hilft Ihnen dabei.

E-Mail Adressen aus Outlook auslesen

DatensicherungE-Mail Adressen aus Outlook auslesen

 

In unserem heutigen Beitrag kümmern wir um uns Outlook und eine sinnvolle Erweiterung des Programms die wir für Sie programmiert haben. Outlook und Word lassen sich sehr gut kombinieren in der Serienbrieffunktionen. Sie schreiben in Word einen Brief und schicken dieses Dokument als Mail mit Outlook einer Menge Leute. Das funktioniert hervorragend. Aber oft werden wir gefragt, ob es möglich ist die Mail Adressen aus den eingegangenen oder gesendeten Nachrichten  auszulesen. Geht das? Nein, Outlook sieht so eine Funktion nicht vor. Aus diesem Grund haben wir ein kleines Programm entwickelt das Outlook um diese Funktion erweitert.

Wie bei jedem unserer Tutorials können Sie die einzelnen Arbeitsschritte in Beispielgrafiken noch einmal sehen. Sollten Sie dann noch Fragen haben, schreiben Sie eine Mail an info@cyberspace.de.

Was kann unser Programm? Sie haben einen Ordner mit 1000 eingegangen Mails und die Aufgabe den Absendern zu antworten. Mit Hilfe unseres Makros werden die Mailadressen ausgelesen und in eine Excel Tabelle übertragen. Ab diesem Moment gelten dann die ganz normalen Serienbrieffunktionen.

 Wie geht es?

 

Outlook starten
Wählen Sie den Ordner der ausgelesen werden soll  ordnerliste
Markieren und Kopieren Sie den Quelltext Sub emailadressen_aus_aktuellem_ordner() Dim absender As String
Rem Aktuellen Ordner auslesen
Set curfolder = Application.ActiveExplorer.CurrentFolder

Rem Alle EMails durchgehen

For i = 1 To curfolder.items.Count – 1

Set curitem = curfolder.items(i)

Rem Pruefen, ob es auch eine Email ist

If TypeName(curitem) = „MailItem“ Then

Rem Absender in Variable „sammeln“

absender = curitem.SenderEmailAddress & „; “ & absender

End If

Next

Rem Emailobjekt erstellen

Dim objMail As Outlook.MailItem

Set objMail = Application.CreateItem(olMailItem)

With objMail

.To = absender

.subject = „Alle Absender aus dem Ordner: “ & Chr(34) & curfolder.Name & Chr(34)

.Display

End With

End Sub

Alt + F11 Öffnet den VBA Editor
Fügen Sie den kopierten Text ein  auslesen
F5 Führt das Programm aus

 

Als Ergebnis bekommen Sie eine Excel Tabelle mit den ausgelesenen Adressdaten. Jetzt geht es mit dem Serienbrief weiter. Wie ging das gleich nochmal mit dem Serienbrief? Hier gibt es Hilfe

Serienbrief mit Microsoft  Word

Hat es funktioniert? Falls Sie noch Fragen oder Wünsche haben schreiben Sie uns über Facebook http://www.facebook.de/cy360 oder per Mail an info@cyberspace360.de

 

Benötigen Sie ein ähnliches Makro oder ein kleines Programm das Ihnen die Arbeit erleichtert? Wir sind für Sie da, Anruf oder Mail genügt.

 

Wir freuen uns über jeden Kommentar oder Mail.

 

We m@ke IT Better!

 

Die Handlung und die handelnden Personen dieses Textes sind frei erfunden. Jede Ähnlichkeit mit toten oder lebenden Personen oder Persönlichkeiten des öffentlichen Lebens ist nicht beabsichtigt und wäre rein zufällig. Die Handlungen der Personen sind ebenfalls erfunden und Ähnlichkeiten zu wahren Ereignissen oder Personen sind komplett fiktiv. Programme oder Makros setzen Sie auf eigenes Risiko ein, für Fehler oder Schäden übernehmen wir keine Garantie.