Office: Schriftart des Mailitems (Outlook) per VBA ändern

Hallo!

Ich rufe in einer Access Datenbank per VBA Outlook auf und lasse neue Mails generieren:

Code:

mit Code:

kann ich das Textformat einstellen.

Wie kann ich per VBA die Schriftart auf bspw. Courier 10 ändern, egal welche Schriftart der User in seinem Outlook eingestellt hat?

Hintergrund: Da ich den Text teilweise mit Leerzeichen formatieren muss um eine Art Tabelleansicht zu erhalten muss es eine Schriftart mit fester Breite sein. In dem Fall eben Courier 10.

Kann mir jemand helfen?

Danke!
Grüße
Ingo

:)

 

Hallo Ingo,

also ich stelle das Format immer direkt in dem Text der (HTML) Mail ein. Code:

Die geschweiften Klammern musst du mit "" ersetzen, da der Text sonst nicht angezeigt wird.*depressed

Die Schriftgröße und den Schrifttyp, kannst du natürlich individuell anpassen.

 

Hallo!

Danke für deine Antwort.
Mein Problem bezieht sich allerdings auf Plain Text, nicht auf HTML (das gehört nicht in eine E-Mail, ist aber ein anderes Thema).

Wie kann ich in einer "Nur Text" Nachricht die Schriftart vorgeben?
Ich habe da mal was von einem Inspector gelesen, den man in Outlook ansprechen kann. Wäre das ein Lösungsansatz?

Grüße
Ingo

 

Hallo Ingo,
meiner Meinung nach ist es nicht möglich "Plain Text" zu formatieren, denn das ist wie du selbst sagst "Nur Text" und dort gibt es halt nur Text.
Alles was formatiert ist, muss HTML-sein.

 

Hallo!

OK, das verstehe ich. Mein Problem muss ich daher noch konkretisieren:

Wenn ich eine Mail aus Access heraus erstellen will, möchte ich die Einstellungen des Benutzers ignorieren. Wenn der Benutzer in Outlook irgendwas anderes als Courier 10 eingestellt hat, dann möchte ich eine Mail in Plain Text und eben mit dieser Schriftart haben.
Ich befürchte allerdings, dass ich doch auf HTML umstellen muss, auch wenn ich das nicht will. Ggf wäre RTF möglich.
Ich dachte, man konnte das mit Code:

in VBA machen.

Grüße
Ingo

 

Hallo Ingo,
es kann sein, dass es möglich ist, die Schriftart bzw. das Aussehen der Mail beim Absender über Outlook zu beeinflussen.
Aber egal was du in deinem Outlook einstellst, beim Empfänger kommt die "Plain Text" Mail immer unformatiert an, egal welche "Kniffe" du dir ausdenkst.
Auch existiert keine "RTF-Mail" (außer als Anlage).
Es gibt entweder Text oder HTML, sonst nix.

 

Hi!

Sorry, für die späte Antwort, aber wenn Rechner bocken, kann es mal was länger dauern...

Wie man jetzt beim Absender die Schriftart bzw. das Aussehen der Mail beeinflusst, weißt du jetzt aber auch nicht.
Wenn also die Mail beim Empfänger immer als Plain-Text ankommt, dann u.U. aber auch mit einer anderen Schriftart, als die, die ich bzw. der Absender eingestellt hat?

Schade, dass das nicht so einfach geht beim Erstellen einer Mail aus Access heraus Schriftart, -größe und -farbe mit zu übergeben.

Dank' dir für deine Aufklärung.

Grüße
Ingo

 

Die Schriftgröße und den Schrifttyp, kannst du natürlich individuell anpassen.


Ich war auch auf der suche wie man Texte formatiert. Nun habe ich das Beispiel von Hoschus genommen, nur wird mir der Text nicht Formatiert, sondern mir wird im Outlook der komplete Text angezeigt.

So sieht mein Code aus:

Code:

Das Outlook öffnet sich. In der Menüleiste steht HTML also nicht Nur Text.
Was mache ich falsch? hat jemand eine Idee? Oder gibt es eine Möglichkeit aus einem Bericht mit formatierten Texten, die in das Outlook zu übernehmen. das wäre mir die liebste Lösung.*wink.gif*
gery

 

Hallo Gery,

ersetze mal ".Body = MailNachricht" in ".HTMLBody = MailNachricht".

 

Vielen Dank Hoschus *wink.gif*

Wie sagt man:"Kleiner Fehler, grosse Wirkung" *Smilie
Danke

EDIT:
Nun habe ich schon wieder ein Problem. Da der Text sehr lange sein soll, möchte ich Zeilenumbruch einfügen. Leider wird dies in das Mail nicht übertragen.
Habe den Umbruch in den String eingebaut, auch im Body und es kam immer das selbe raus. Keine Umbrüche.
Z.B: .HTMLBody = MailNachricht1 & Chr(13) & Chr(10) & MailNachricht2
oder .HTMLBody = MailNachricht1 & vbCrLf & MailNachricht2

gibt es dazu noch eine Lösung?

Und dann noch eine Frage, wie lautet der HTML Code für FETT und UNTERSTREICHEN?
gery

 

In HTML lautet der Code für einen Zeilenumbruch <br>. Sinnvoller ist es sicherlich, aber die einzelnen Parts in <p> und </p> einzusetzen.


Hier die einleitende CSS-Syntax für fett und unterstrichen, für den Einsatz in VBA:
Code:

Test (U müsste fett und unterstrichen sein):
Fettes Unterstrichen.

 

Danke, das hat mir sehr weitergeholfen.*wink.gif*

 

Hallo,

ich habe derzeit das problem, dass wenn ich statt .body .HTMLbody angebe, erhalte ich überhaupt keinen Text in der mail. Leider auch keine Fehlermeldung.

Versteht Access .HTMLbody nicht? Muss ich dazu vorher irgendwas freischalten?

Vielen Dank schon mal

 

Sorry, erledigt, ich habe notes. da geht das einfach so nicht.

 

Hallo Leute,
habe den oben stehenden Code probiert:

Private Sub Befehl51_Click()
Dim MailNachricht As String
MailNachricht = "" & _
"Hier ist der E-Mail - Text ..."

Dim myMail As Outlook.MailItem
Dim myOutlApp As Outlook.Application

Set myOutlApp = New Outlook.Application
Set myMail = myOutlApp.CreateItem(olMailItem)

With myMail
.To = "Test@Testadresse.de"
.Subject = "...und wieder ein neuer Test!"

.Body = MailNachricht

.Display

End With

myOutlApp.Quit

Set myMail = Nothing
Set myOutlApp = Nothing
End Sub


Leider kommt im der der Fehler: Fehler beim Kompilieren. Benutzerdefinierter Typ nicht definiert. Markiert wird "myMail As Outlook.MailItem".
Leider bin ich in VBA ein kompletter Newbie.
Kann mir jemand in einfachen Worten helfen?
Lg, bblues