Top-Themen

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

Memofeld Schriften Formatieren (Einfluss auf den HTML Code nehmen) per VBA

Frage Microsoft Microsoft Office

Mitglied: christiankarl

christiankarl (Level 1) - Jetzt verbinden

27.09.2013 um 09:31 Uhr, 2585 Aufrufe, 7 Kommentare

Hallo,

ich habe ein Problem, das wenn ich per Buttons vorgefertigte Texte (Schriftart Arial Schriftgrösse 10) in ein Memofeld einfüge und dann im Memofeld dann etwas schreibe, im Vordergrund zwar die Arial 10 weiter angezeigt wird,
aber sobald ich dieses Memofeld per Mail versende , wird die gesamte Schriftart auf einmal mit Arial 11 versendet. ( ist auch in der Tabelle dann erkennbar).
Wie bekomme ich es hin, dass ich per VBA Einfluss auf den darin enthaltenen "HTML" Code zu nehmen
und vor Übernahme dieses Memofeld als Emailtext die gesamte Schriftart auf Arial 10 setzen kann?

Vielleicht kann mir hier jemand helfen

Mitglied: colinardo
27.09.2013, aktualisiert um 09:58 Uhr
Hallo christiankarl,
könntest du z.B. so machen:
01.
Set objOL = CreateObject("Outlook.Application") 
02.
Set mail = objOL.CreateItem(0) 
03.
deinText = "Lorem ipsum dolor sit amet." 
04.
mail.HTMLBody = "<style type=""text/css"">.MyText{font-family:Arial; font-size:10pt;}</style><p class=""MyText"">" & deinText & "</p>" 
05.
mail.Display
Grüße Uwe
Bitte warten ..
Mitglied: christiankarl
27.09.2013 um 10:35 Uhr
Hallo Uwe,

danke für die Rückmeldung.

ich selbersende nicht über Outlook sondern sende direkt über den SMPT Server ( Dank M$ Sicherheitspolitik und Warnhinweisen Outlook und nicht der umgehenung in Verbindung Exchange Server die Funktion von OLXSecurity ect nicht).

01.
Set objMessage = CreateObject("CDO.Message") 
02.
    
03.
   Call CDO_config 
04.
    
05.
  With objMessage.Configuration.Fields 
06.
    '==This section provides the configuration information for the remote SMTP server. 
07.
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = sendusing           '==Normally you will only change the server name or IP. 
08.
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver         'Name or IP of Remote SMTP Server 
09.
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = smtpserverport 'Server port (typically 25) 
10.
    .Update 
11.
    '==End remote SMTP server configuration section== 
12.
  End With 
13.
   
14.
'Auslesen Anzahl E-Mail Adressen 
15.
    Set db = CurrentDb() 
16.
    Set rs = db.OpenRecordset("Email", dbOpenDynaset) 
17.
    rs.MoveLast             ' <-- wichtig, sonst 'RecordCount' evtl. falsch 
18.
    iMaxZeile = rs.RecordCount 
19.
    rs.MoveFirst 
20.
    MsgBox "Es werden: " & iMaxZeile & " E-mails gesendet" 
21.
'Auslesen Anzahl E-Mail Adressen Ende 
22.
      
23.
'Senden 
24.
  'Schleife 
25.
   
26.
    For w = 1 To 10 
27.
     If eAnhang(w) <> "" Then 
28.
     objMessage.AddAttachment eAnhang(w) 'Anhang aus formular 
29.
     End If 
30.
    Next 
31.
     
32.
  For I = 1 To iMaxZeile 
33.
      
34.
    Email = Replace(EMailVorlage, "[Anrede]", rs.Fields("Anrede") & "") 
35.
    Email = Replace(Email, "[Anrede-Anschreiben]", rs.Fields("Anrede-Anschreiben") & "") 
36.
    Email = Replace(Email, "[Vorname]", rs.Fields("Vorname") & "") 
37.
    Email = Replace(Email, "[Name]", rs.Fields("Nachname") & "") 
38.
    Email = Replace(Email, "[Autohaus]", rs.Fields("Autohaus") & "") 
39.
   
40.
    'Set objMessage = CreateObject("CDO.Message") 
41.
    With objMessage 
42.
     .Subject = EMailbetreff 
43.
     .Sender = Sender   ' Absender 
44.
     .From = SenderName ' Absendername 
45.
     .To = rs.Fields("E-Mail") 
46.
     .HTMLBody = Email 
47.
     '.Send  'Senden E-Mail 
48.
     On Error Resume Next 
49.
          .Send 
50.
..." 
51.
 
52.
Leider greift die Erweiterung nicht 
53.
<code> 
54.
     .HTMLBody = "<style type=""text/css"">.MyText{font-family:Arial; font-size:15pt;}</style><p class=""MyText"">" & deinText & "</p>" & Email & "</p"
Ich muss dabei sagen, dass die anderen vorgefertigten Texte ebenfalls Rich-Text Texte sind, welche in eine Tabelle nur hereinkopiert worden sind(Vorlagen)

Vielleicht hast du noch einen ansatz wie ich das Textfeld "Email" vorher von der schriftart ändern kann.

Danke schön,
Christian
Bitte warten ..
Mitglied: colinardo
27.09.2013 um 10:51 Uhr
So kann das ja nicht gehen...
guckst du hier
01.
... 
02.
.... 
03.
...... 
04.
    'Set objMessage = CreateObject("CDO.Message") 
05.
    With objMessage 
06.
     .Subject = EMailbetreff 
07.
     .Sender = Sender   ' Absender 
08.
     .From = SenderName ' Absendername 
09.
     .To = rs.Fields("E-Mail") 
10.
     .HTMLBody = "<style type=""text/css"">.MyText{font-family:Arial; font-size:10pt;}</style><p class=""MyText"">" & Email & "</p>" 
11.
     '.Send  'Senden E-Mail 
12.
     On Error Resume Next 
13.
          .Send 
14.
.... 
15.
... 
16.
..
Grüße Uwe
Bitte warten ..
Mitglied: christiankarl
27.09.2013 um 11:03 Uhr
Leider funktiioniert dieses immer noch nicht

01.
     .HTMLBody = "<style type=""text/css"">.MyText{font-family:Arial; font-size:10pt;}</style><p class=""MyText"">" & Email & "</p>"
es wird immer noch falsch versendet.

Es interessiert ihn nicht was an Schriftart oder grösse eingestellt wird.
Bitte warten ..
Mitglied: colinardo
27.09.2013, aktualisiert um 11:10 Uhr
welchen Mailclient verwendest du zum Lesen der Mail ? Das ist das leidige Problem das alle Mailclients unterschiedliche Fähigkeiten besitzen was HTML-Tags angeht...
Das ist eigentlich schon eine Methode die bei den meisten Clients funktionieren sollte ..
Bei mir gehts...
Sind da zufällig HTML-Tags in deinem Text ?
Bitte warten ..
Mitglied: christiankarl
27.09.2013 um 11:28 Uhr
Die Testmails lese ich in Outlook,
die Vorlagen selber sind auch Rich-Text , da Sie aus anderen Programm (z.b. Outlook) nur in die Tabellen kopiert wurden.
somit enthalten diese auch HTML-Tags

danke bisher für die Rückmeldungen
Bitte warten ..
Mitglied: colinardo
27.09.2013 um 11:47 Uhr
dann ist es mir klar.
01.
.HTMLBody = "<style type=""text/css"">.MyText,td,th,body {font-family:Arial, Helvetica, sans-serif !Important; font-size:10pt !Important;}</style><p class=""MyText"">" & Email & "</p>"
Damit sollte es bei dir gehen.

Grüße Uwe
Bitte warten ..
Ähnliche Inhalte
VB for Applications
Eigener HTML-Code im UserForm
gelöst Frage von 94451VB for Applications5 Kommentare

Hallo, im Internetz habe ich dieses Script gefunden: die Public Variable (emailHT) habe ich hinzugefügt meine Idee war es ...

HTML
Html Code für Werbebanner?
gelöst Frage von Meierchen25HTML4 Kommentare

Hallo Community, Ich möchte auf meiner Homepage einen Werbebanner einrichten. Offline auf meinem Destop klappt alles wie es soll. ...

Microsoft Office
Kreuztabelle Access + VBA Code
Frage von Dr.CornwallisMicrosoft Office7 Kommentare

Hallo zusammen, ich habe eine Kreuztabelle aus einer Query erzeugt, aus dieser entsteht wiederum ein Bericht, nun habe ich ...

VB for Applications
Excel VBA Code
gelöst Frage von specialuserVB for Applications2 Kommentare

Hallo zusammen, Hab hier einen Button in einer Excel mit Makros erstellt. Der Button hat die Funktion aus der ...

Neue Wissensbeiträge
Internet

Was nützt HTTPS, wenn es auch von Phishing Web-Seiten genutzt wird

Information von Penny.Cilin vor 2 TagenInternet17 Kommentare

HTTPS richtig einschätzen Ob man eine Webseite via HTTPS aufruft, zeigt ein Schloss neben der Adresse im Webbrowser an. ...

Webbrowser

Bugfix für Firefox Quantum released - Installation erfolgt teilweise nicht automatisch!

Erfahrungsbericht von Volchy vor 3 TagenWebbrowser8 Kommentare

Hallo zusammen, gem. dem Artike von heise online wurde mit VersionFirefox 57.0.1 sicherheitsrelevante Bugs behoben. Entgegen der aktuellen Veröffentlichung ...

Sicherheit

Teamviewer Sessions können gekapert werden - Update tw. verfügbar

Information von sabines vor 4 TagenSicherheit6 Kommentare

In bestimmten Konstellationen können Teamviewer Sessions gekapert werden, wahrscheinlich aber ein recht unwahrscheinliches Szenario. Da der Teamviewer gerne für ...

Digitiales Fernsehen

Apple TV: Amazon Prime App ist verfügbar

Information von Frank vor 4 TagenDigitiales Fernsehen4 Kommentare

Die Amazon Prime Video App kann ab sofort auf einem Apple TV ab der 3 Generation installiert werden. Einfach ...

Heiß diskutierte Inhalte
Vmware
Installation Windows 10 VMware
Frage von Ghost108Vmware17 Kommentare

Hallo zusammen, versuche gerade mit Hilfe des vshpere clients eine virtuelle Windows 10 maschine aufzusetzen. 1. virtuelle Maschine erstellt ...

Exchange Server
SBS 2011 E-Mails können gesendet werden, aber nicht von extern empfangen
Frage von andreas1234Exchange Server14 Kommentare

Hallo Community, ich habe das Problem, dass seit knapp zwei Wochen die E-Mails von meinem SBS 2011 einwandfrei gesendet ...

Voice over IP
Telefonstörung - Ortsrufnummern kein Verbindungsaufbau
Frage von Windows10GegnerVoice over IP10 Kommentare

Hallo, sowohl bei uns als auch beim Opa ist es über VoIP nicht möglich Ortsrufnummern anzurufen. Es kommt nach ...

Windows Server
Server 2012 über Eingabeaufforderung devmgmt.msc geht nicht
gelöst Frage von achim222Windows Server9 Kommentare

Hallo, ich habe hier einen Server 2012 der im Reparaturmodus startet. Es liegt an einem falschen VirtIO Treiber für ...