VBA: Erstellen einer Mail mit Anhang

Der  nachfolgende Code ermöglicht es, eine Mail über VBA-Code aus Access zu erstellen:

Sub Mailversand(str_empfaenger, str_betreff, str_Dateiname, str_Vorname, str_Nachname, str_Telefon, str_Mail)
' Diese SUB erstellt eine Mail mit Anhang
Dim OL_App As Object
Set OL_App = CreateObject("Outlook.Application")

With OL_App.CreateItem(0)
   .BodyFormat = 3
   .GetInspector.Display
   .To = str_empfaenger
   .Subject = str_betreff
   .htmlBody = "Hallo,<br><br>im Anhang findest Du die im Betreff genannte Datei.<br><br>Mit freundlichen Grüßen<br><br>" & str_Vorname & " " & str_Nachname & "<br>" & str_Telefon & "<br>" & str_Mail
   .Attachments.Add str_Dateiname
End With

End Sub

Die Routine erstellt eine Mail mit Anhang, die aus einem übergeordneten Modul aufgerufen wird. Nach Erstellung wird die Mail in Outlook aufgerufen, bevor diese versendet wird.

Weiterlesen

user-places.xbel nicht beschreibbar

Beim Starten des Systems erscheint regelmäßig folgende Meldung:

Speichern der Lesezeichen in /home/[USER]/.local/share/user-places.xbel nicht möglich. Der Fehler lautet: Die existierende Datei /home/[USER]/.local/share/user-places.xbel ist nicht schreibbar. Die Meldung wird nur einmal angezeigt. Die Ursache sollte so rasch wie möglich beseitigt werden. Möglicherweise ist die Festplattenkapazität erschöpft.

Nun, in dem Fall ist es nicht die Festplattenkapazität, sondern die Schreib- und Besitzrechte dieser Datei, die aus irgendwelchen Gründen dem „root“ zugeordnet gewesen sind. Mit folgendem Befehl lässt sich dieses für den angemeldeten Benutzer ändern:

sudo chown $USER:$USER /home/$USER/.local/share/user-places.xbel

Signaltöne in Thunderbird deaktiveren

Die Signaltöne im Mailprogramm „Thunderbird“ nerven mitunter sehr. Dieser Beitrag beschreibt, wie die Töne beim Mailversand deaktiviert werden können. Eine radikale Lösung ist mir aufgefallen, die optischen und akustischen Meldungen beim Löschen von Mails auszuschalten. Dies birgt allerdings einige Gefahren. Dazu mehr beim Tipp.

Weiterlesen

Ersetzen per VBA

Über folgenden Befehl lassen sich Zeichen(ketten) in Excel per VBA ersetzen:

Ganzes Tabellenblatt:
Worksheets("[Tabellenblatt]").Cells.Replace What:="[vorher]", Replacement:="[nachher]", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

Ausgewählte Bereiche:
Selection.Replace What:="[vorher]", Replacement:="[nachher]", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

Wird oft zusammen gekauft [1]

Da schaue ich doch mal nach ein paar Linux-Referenzen und entdecke folgende Buchempfehlung:

Buchempfehlung - fehlgeschlagen
Buchempfehlung als Ergebnis von Linux-Fachliteratur

Auch wenn mir mancher Shellbefehl oder Code kryptisch vorkommt; mit Magie hat das so gar nichts zu tun.

Rechtevergabe von Verzeichnissen unter Linux

Auf Kommandozeile lassen sich schnell der Besitzer und die Gruppe von ganzen Verzeichnissen ändern. Dies geschieht über den Befehl chown (Besitzer ändern) und chgrp (Gruppe ändern). Die Befehlsfolge ist bei beiden Befehlen identisch und können entsprechend angewandt werden.

Der Befehl für die Änderung des Dateieigentümers der Datei „dokument.odt“ auf den Nutzer „joerg“ lautet wie folgt.

sudo chown joerg dokument.odt

Mit dem Parameter „-v“ kann man das Ergebnis laufend anzeigen lassen. Dies ist wichtig, wenn mehrere Dateien oder Verzeichnisse einen neuen Eigentümer oder eine andere Gruppe bekommen.  Untergeordnete Verzeichnisse kann man mit dem Parameter „-R“ erreichen.

Mit dem folgenden Befehl werden alle Dateien und Unterverzeichnisse dem Nutzer „joerg“ zugewiesen:

sudo chown -Rv joerg *

Wichtig ist, das hier nicht die versteckten Dateien erreicht werden. Kommt man auf die Idee „chown -Rv joerg .*“ zu verwenden, werden auch die übergeordneten Daten erreicht. Die Lösung für diese Aufgabe ist viel einfacher:

sudo chown -Rv joerg .

Hiermit werden alle sichtbaren und versteckten Dateien im aktuellen Verzeichnis und in den Unterordnern erreicht.

Aussergewöhnliche Musikvideos

Wozu kreativer Musikergeist fähig ist, zeigen folgenden Videos

  • OK GO – Needing Getting
    Hier braust die Band »OK GO« mit einem Auto durch einen Parcur und intoniert durch geschickte Plazierung unzähliger Musikinstrumente und diverser Gegenstände den Song „Needing Getting“
  • Wintergatan – Marble Machine
    14 Monate hat der Bau der »Murmel Musik Maschine« in einer fensterlosen Werkstatt gedauert, bis die schwedische Band »Wintergatan« diesen Song darbieten konnte. Einfach genial. Mehrere „Making-Of-Videos“ dokumentieren den Bau dieses Instrumentes.