25.08.2016, aktualisiert um 11:12:05 Uhr

1902

Aus VBA E-Mail und HTML Dokument erstellen lassen

Hallo Kolleginnen und Kollegen,

ich bin gerade dabei einige Outlook Makros zu schreiben, über die schnell Störungsmeldungen und Wartungsankündigungen mitgeteilt werden können.

Derzeit steht eine Oberfläche zur Verfügung, über die nach Eingabe von Variablen entsprechende E-Mails generiert werden.
Nun muss aus der Meldung aber auch noch ein entsprechendes HTML-Dokument inkl. Formatierung in einem speziellen Netzlaufwerk abgelegt werden (leider darf es nicht einfach die Mail sein).
Das HTML-Dokument muss unter folgendem Namen gespeichert werden: AktuellesDatum(yyyyMMdd)_AktuelleUhrzeit(HHmmss)_BetreffderMail.html

Hierbei stehe ich auch leider etwas auf dem Schlauch. Die Mail als solche in einem Laufwerk zu speichern ist kein Thema, aber mit der Formatierung bin ich leider etwas überfordert.

Ich würde mich freuen, wenn mit jemand auf die Sprünge helfen könnte. Oder sogar schon Quellcode fertig hätte,

Vielen Dank schon mal im vorraus

HTML-Dokument:

<html xmlns:v="urn:schemas-microsoft-com:vml"  
xmlns:o="urn:schemas-microsoft-com:office:office"  
xmlns:w="urn:schemas-microsoft-com:office:word"  
xmlns="http://www.w3.org/TR/REC-html40">  

<head>
<meta http-equiv=Content-Type content="text/html; charset=windows-1252">  
<meta name=ProgId content=Word.Document>
<meta name=Generator content="Microsoft Word 11">  
<meta name=Originator content="Microsoft Word 11">  
<link rel=File-List href="IBM-IPL-Dateien/filelist.xml">  
<link rel=Edit-Time-Data href="IBM-IPL-Dateien/editdata.mso">  
<!--[if !mso]>
<style>
v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
w\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}
</style>
<![endif]--><!--[if gte mso 9]><xml>
 <o:DocumentProperties>
  <o:Author>Grandjean, Ingo</o:Author>
  <o:Template>IBM-IPL.dot</o:Template>
  <o:LastAuthor>Grandjean, Ingo</o:LastAuthor>
  <o:Revision>1</o:Revision>
  <o:Created>2016-08-25T08:28:00Z</o:Created>
  <o:LastSaved>2016-08-25T08:33:00Z</o:LastSaved>
  <o:Pages>1</o:Pages>
  <o:Characters>1</o:Characters>
  <o:Company>Finanzverwaltung Rheinland-Pfalz</o:Company>
  <o:Lines>1</o:Lines>
  <o:Paragraphs>1</o:Paragraphs>
  <o:CharactersWithSpaces>1</o:CharactersWithSpaces>
  <o:Version>11.9999</o:Version>
 </o:DocumentProperties>
</xml><![endif]--><!--[if gte mso 9]><xml>
 <w:WordDocument>
  <w:SpellingState>Clean</w:SpellingState>
  <w:GrammarState>Clean</w:GrammarState>
  <w:AttachedTemplate HRef="C:\Users\zd0223\Desktop\IBM-IPL.dot"></w:AttachedTemplate> 
  <w:HyphenationZone>21</w:HyphenationZone>
  <w:PunctuationKerning/>
  <w:DrawingGridHorizontalSpacing>5,5 pt</w:DrawingGridHorizontalSpacing>
  <w:DisplayHorizontalDrawingGridEvery>2</w:DisplayHorizontalDrawingGridEvery>
  <w:ValidateAgainstSchemas/>
  <w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid>
  <w:IgnoreMixedContent>false</w:IgnoreMixedContent>
  <w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText>
  <w:Compatibility>
   <w:BreakWrappedTables/>
   <w:SnapToGridInCell/>
   <w:WrapTextWithPunct/>
   <w:UseAsianBreakRules/>
   <w:DontGrowAutofit/>
  </w:Compatibility>
  <w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel>
 </w:WordDocument>
</xml><![endif]--><!--[if gte mso 9]><xml>
 <w:LatentStyles DefLockedState="false" LatentStyleCount="156"> 
 </w:LatentStyles>
</xml><![endif]-->
<style>
<!--
 /* Font Definitions */
 @font-face
	{font-family:Verdana;
	panose-1:2 11 6 4 3 5 4 4 2 4;
	mso-font-charset:0;
	mso-generic-font-family:swiss;
	mso-font-pitch:variable;
	mso-font-signature:-1593833729 1073750107 16 0 415 0;}
 /* Style Definitions */
 p.MsoNormal, li.MsoNormal, div.MsoNormal
	{mso-style-parent:""; 
	margin:0cm;
	margin-bottom:.0001pt;
	line-height:125%;
	mso-pagination:widow-orphan;
	font-size:11.0pt;
	mso-bidi-font-size:12.0pt;
	font-family:Arial;
	mso-fareast-font-family:"Times New Roman"; 
	mso-bidi-font-family:"Times New Roman";} 
span.SpellE
	{mso-style-name:""; 
	mso-spl-e:yes;}
@page Section1
	{size:595.3pt 841.9pt;
	margin:70.9pt 2.0cm 2.0cm 2.0cm;
	mso-header-margin:35.45pt;
	mso-footer-margin:35.45pt;
	mso-paper-source:0;}
div.Section1
	{page:Section1;}
-->
</style>
<!--[if gte mso 10]>
<style>
 /* Style Definitions */
 table.MsoNormalTable
	{mso-style-name:"Normale Tabelle"; 
	mso-tstyle-rowband-size:0;
	mso-tstyle-colband-size:0;
	mso-style-noshow:yes;
	mso-style-parent:""; 
	mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
	mso-para-margin:0cm;
	mso-para-margin-bottom:.0001pt;
	mso-pagination:widow-orphan;
	font-size:10.0pt;
	font-family:"Times New Roman"; 
	mso-ansi-language:#0400;
	mso-fareast-language:#0400;
	mso-bidi-language:#0400;}
</style>
<![endif]--><!--[if gte mso 9]><xml>
 <o:shapedefaults v:ext="edit" spidmax="2050"/> 
</xml><![endif]--><!--[if gte mso 9]><xml>
 <o:shapelayout v:ext="edit"> 
  <o:idmap v:ext="edit" data="1"/> 
 </o:shapelayout></xml><![endif]-->
</head>

<body lang=DE style='tab-interval:35.4pt'>  

<div class=Section1>

<p class=MsoNormal><!--[if gte vml 1]><v:shapetype id="_x0000_t202" 
 coordsize="21600,21600" o:spt="202" path="m,l,21600r21600,l21600,xe"> 
 <v:stroke joinstyle="miter"/> 
 <v:path gradientshapeok="t" o:connecttype="rect"/> 
</v:shapetype><v:shape id="_x0000_s1028" type="#_x0000_t202" style='position:absolute; 
 margin-left:9.1pt;margin-top:22.3pt;width:473pt;height:481.7pt;z-index:1'/><![endif]--><![if !vml]><span 
style='mso-ignore:vglayout'>  

<table cellpadding=0 cellspacing=0 align=left>
 <tr>
  <td width=11 height=29></td>
 </tr>
 <tr>
  <td></td>
  <td width=637 height=648 bgcolor=white style='border:.75pt solid black;  
  vertical-align:top;background:white'><![endif]><![if !mso]><span  
  style='position:absolute;mso-ignore:vglayout;z-index:1'>  
  <table cellpadding=0 cellspacing=0 width="100%">  
   <tr>
    <td><![endif]>
    <div v:shape="_x0000_s1028" style='padding:4.35pt 7.95pt 4.35pt 7.95pt'  
    class=shape>
    <p class=MsoNormal>IT-Service Mitteilung <span
    style='mso-spacerun:yes'>                    </span><span  
    style='mso-spacerun:yes'>                      </span><span  
    style='mso-spacerun:yes'>                   </span>Erstelldatum <!--[if supportFields]><span 
    style='mso-element:field-begin'></span> CREATEDATE \@ &quot;dd.MM.yyyy 
    HH:mm:ss&quot; <span style='mso-element:field-separator'></span><![endif]--><span  
    style='mso-no-proof:yes'>25.08.2016 10:28:00</span><!--[if supportFields]><span 
    style='mso-element:field-end'></span><![endif]--></p>  
    <p class=MsoNormal>Name der Absenderstelle</p>
    <p class=MsoNormal>_________________________________________________________________________</p>
    <p class=MsoNormal><o:p>&nbsp;</o:p></p>
    <p class=MsoNormal><b><u>Adressat:<o:p></o:p></u></b></p>
    <p class=MsoNormal><b><span style='color:blue'>Alle<o:p></o:p></span></b></p>  
    <p class=MsoNormal><o:p>&nbsp;</o:p></p>
    <p class=MsoNormal><b><u>Wartungsankündigung: <o:p></o:p></u></b></p>
    <p class=MsoNormal><b><span style='mso-bidi-font-size:11.0pt;line-height:  
    125%;font-family:Verdana;color:red'>Systemneustart am </span></b><!--[if supportFields]><b><span 
    style='mso-bidi-font-size:11.0pt;line-height:125%;font-family:Verdana; 
    color:red'><span style='mso-element:field-begin'></span> DATE<span 
    style='mso-spacerun:yes'>  </span>\@ &quot;dd.MM.yyyy&quot;<span 
    style='mso-spacerun:yes'>  </span>\* MERGEFORMAT <span style='mso-element: 
    field-separator'></span></span></b><![endif]--><b><span style='mso-bidi-font-size: 
    11.0pt;line-height:125%;font-family:Verdana;color:red'><span 
    style='mso-no-proof:yes'>25.08.2016</span></span></b><!--[if supportFields]><b><span 
    style='mso-bidi-font-size:11.0pt;line-height:125%;font-family:Verdana; 
    color:red'><span style='mso-element:field-end'></span></span></b><![endif]--><b><span  
    style='mso-bidi-font-size:11.0pt;line-height:125%;font-family:Verdana;  
    color:red'> ; <o:p></o:p></span></b></p>  
    <p class=MsoNormal><b><span style='mso-bidi-font-size:11.0pt;line-height:  
    125%;font-family:Verdana;color:red'>Von: 16:00 Uhr<o:p></o:p></span></b></p>  
    <p class=MsoNormal><b><span style='mso-bidi-font-size:11.0pt;line-height:  
    125%;font-family:Verdana;color:red'>Bis: <span  
    style='mso-spacerun:yes'> </span>16:45 Uhr</span></b><b><span  
    style='mso-bidi-font-size:11.0pt;line-height:125%;font-family:Verdana;  
    color:#003300'><o:p></o:p></span></b></p>  
    <p class=MsoNormal>_________________________________________________________________________<b><u><o:p></o:p></u></b></p>
    <p class=MsoNormal><o:p>&nbsp;</o:p></p>
    <p class=MsoNormal><span class=SpellE><b><u>Wartungsinfomationen</u></b></span><b><u>:</u></b><span
    style='mso-spacerun:yes'>   </span><span style='mso-bidi-font-size:11.0pt;  
    line-height:125%;mso-bidi-font-family:Arial'><span  
    style='mso-spacerun:yes'>  </span></span><b><u><o:p></o:p></u></b></p>  
    <p class=MsoNormal><span style='mso-bidi-font-size:11.0pt;line-height:125%;  
    mso-bidi-font-family:Arial'>Im Rechenzentrum stehen heute planmäßige  
    Wartungsarbeiten an, daher müssen unsere Systeme neugestartet werden.<span
    style='color:blue'><o:p></o:p></span></span></p>  
    <p class=MsoNormal><span style='mso-bidi-font-size:11.0pt;line-height:125%;  
    mso-bidi-font-family:Arial'>Infolge dieses Neustarts stehen den Anwendern  
    kurzzeitig z.B. folgende Anwendungen nicht zur Verfügung:<o:p></o:p></span></p>
    <p class=MsoNormal><span style='mso-bidi-font-size:11.0pt;line-height:125%;  
    mso-bidi-font-family:Arial'>Anwendung 1<o:p></o:p></span></p>  
    <p class=MsoNormal><span style='mso-bidi-font-size:11.0pt;line-height:125%;  
    mso-bidi-font-family:Arial'>Anwendung 2<o:p></o:p></span></p>  
    <p class=MsoNormal><span style='mso-bidi-font-size:11.0pt;line-height:125%;  
    mso-bidi-font-family:Arial'>Anwendung 3…..<br>  
    <br>
    <b><span style='color:blue'>Beginn:<span style='mso-spacerun:yes'>     
    </span></span></b></span><!--[if supportFields]><b><span style='mso-bidi-font-size: 
    11.0pt;line-height:125%;mso-bidi-font-family:Arial;color:blue'><span 
    style='mso-element:field-begin'></span> DATE<span 
    style='mso-spacerun:yes'>  </span>\@ &quot;dd.MM.yyyy&quot;<span 
    style='mso-spacerun:yes'>  </span>\* MERGEFORMAT <span style='mso-element: 
    field-separator'></span></span></b><![endif]--><b><span style='mso-bidi-font-size: 
    11.0pt;line-height:125%;mso-bidi-font-family:Arial;color:blue'><span 
    style='mso-no-proof:yes'>25.08.2016</span></span></b><!--[if supportFields]><b><span 
    style='mso-bidi-font-size:11.0pt;line-height:125%;mso-bidi-font-family: 
    Arial;color:blue'><span style='mso-element:field-end'></span></span></b><![endif]--><b><span 
    style='mso-bidi-font-size:11.0pt;line-height:125%;mso-bidi-font-family:  
    Arial;color:blue'> - 16:00 Uhr<span  
    style='mso-spacerun:yes'>                     </span>Ende: </span></b><!--[if supportFields]><b><span 
    style='mso-bidi-font-size:11.0pt;line-height:125%;mso-bidi-font-family: 
    Arial;color:blue'><span style='mso-element:field-begin'></span> DATE<span 
    style='mso-spacerun:yes'>  </span>\@ &quot;dd.MM.yyyy&quot;<span 
    style='mso-spacerun:yes'>  </span>\* MERGEFORMAT <span style='mso-element: 
    field-separator'></span></span></b><![endif]--><b><span style='mso-bidi-font-size: 
    11.0pt;line-height:125%;mso-bidi-font-family:Arial;color:blue'><span 
    style='mso-no-proof:yes'>25.08.2016</span></span></b><!--[if supportFields]><b><span 
    style='mso-bidi-font-size:11.0pt;line-height:125%;mso-bidi-font-family: 
    Arial;color:blue'><span style='mso-element:field-end'></span></span></b><![endif]--><b><span  
    style='mso-bidi-font-size:11.0pt;line-height:125%;mso-bidi-font-family:  
    Arial;color:blue'> – ca. 16:45 Uhr<br>  
    </span></b>_________________________________________________________________________<span
    style='mso-bidi-font-size:11.0pt;line-height:125%;mso-bidi-font-family:  
    Arial'><o:p></o:p></span></p>  
    <p class=MsoNormal><o:p>&nbsp;</o:p></p>
    <p class=MsoNormal><b><u>Nutzerhinweise:<o:p></o:p></u></b></p>
    <p class=MsoNormal>1. <span style='mso-bidi-font-size:11.0pt;line-height:  
    125%;mso-bidi-font-family:Arial'>Bitte beenden Sie rechtzeitig Ihre Arbeit  
    in den betroffenen Anwendungen und<o:p></o:p></span></p>
    <p class=MsoNormal><span style='mso-bidi-font-size:11.0pt;line-height:125%;  
    mso-bidi-font-family:Arial'><span style='mso-spacerun:yes'>   </span><span  
    style='mso-spacerun:yes'> </span>melden sich aus dem System ab.<br  
    style='mso-special-character:line-break'>  
    <![if !supportLineBreakNewLine]><br style='mso-special-character:line-break'>  
    <![endif]></span></p>
    </div>
    <![if !mso]></td>
   </tr>
  </table>
  </span><![endif]><![if !mso & !vml]>&nbsp;<![endif]><![if !vml]></td>
 </tr>
</table>

</span><![endif]><span style='mso-bidi-font-size:11.0pt;line-height:125%;  
mso-bidi-font-family:Arial'><o:p>&nbsp;</o:p></span></p>  

</div>

</body>

</html>

HTML-MAIL:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">  
<HTML><HEAD>
<META content="text/html; charset=iso-8859-1" http-equiv=Content-Type>  
<META name=GENERATOR content="MSHTML 9.00.8112.16464"></HEAD>  
<BODY><B>An:</B> Verteiler1; Verteiler2; Verteiler3<BR><B>Cc:</B> 
Verteiler4<BR><B>Betreff:</B> INFORMATION: Systemneustart am 25.08.2016 von 
16:00 Uhr bis 16:45 Uhr<BR><BR><B>Läuft ab:</B> Freitag, 26. August 2016 
00:00<BR><FONT size=2 face=Arial>Sehr geehrte Kolleginnen und Kollegen, </FONT>
<P></P>
<P><FONT size=2 face=Arial></FONT></P>
<DIV><FONT size=2 face=Arial>im Rechenzentrum stehen heute planmäßige 
Wartungsarbeiten<SPAN class=213322708-25082016> </SPAN>an;&nbsp;<SPAN 
class=213322708-25082016>daher müssen unsere in folgendem 
Zeitraum&nbsp;neugestartet werden</SPAN>:<BR><BR>Beginn: 16:00 Uhr<BR>Ende: 
ca.16:45 Uhr<BR><BR>Infolge dieses Neustarts stehen den Anwendern 
kurzzeitig&nbsp;<SPAN class=213322708-25082016>z.B. folgende Anwendungen nicht 
zur Verfügung:</SPAN></FONT></DIV>
<DIV><FONT size=2 face=Arial><SPAN 
class=213322708-25082016></SPAN></FONT>&nbsp;</DIV>
<DIV><FONT size=2 face=Arial><SPAN class=213322708-25082016>Anwendung 
1</SPAN></FONT></DIV>
<DIV><FONT size=2 face=Arial><SPAN class=213322708-25082016>Anwendung 
2</SPAN></FONT></DIV>
<DIV><FONT size=2 face=Arial><SPAN class=213322708-25082016>Anwendung 
3.......</SPAN></FONT></DIV>
<DIV><FONT size=2 face=Arial><SPAN 
class=213322708-25082016></SPAN></FONT>&nbsp;</DIV>
<DIV><FONT size=2 face=Arial><SPAN 
class=213322708-25082016></SPAN></FONT>&nbsp;</DIV><FONT size=2 face=Arial>
<DIV><BR><BR><B>Hinweis:</B></DIV>
<DIV><STRONG></STRONG>&nbsp;</DIV>
<DIV><SPAN class=213322708-25082016></SPAN>Bitte beenden Sie rechtzeitig Ihre 
Arbeit in diesen Anwendungen und melden sich aus dem System ab.</DIV>
<DIV><BR><BR>Vielen Dank für Ihr Verständnis. </FONT></DIV>
<P></P><FONT size=2 face=Arial>Mit freundlichen Grüßen </FONT></BODY></HTML>

Code zum erstellen der Mail:

Option Explicit

Private Sub cmdFertig_Click()
    Me.Hide
    MailVersenden
    End Sub
Sub MailVersenden()

    Dim olApp As Outlook.Application
    Set olApp = CreateObject("Outlook.Application")  
    Dim HTML_Body As String
   
    ' Logon. Doesn't hurt if you are already running and logged on...  
    Dim olNs As Outlook.NameSpace
    Set olNs = olApp.GetNamespace("MAPI")  
    olNs.Logon
    
    ' Send a message to your new contact.  
     Dim olMail As Outlook.MailItem
     Set olMail = olApp.CreateItem(olMailItem)
   ' Fill out & send message...s  
    olMail.SentOnBehalfOfName = "Absender"  
    
    olMail.To = "Verteiler1; Verteiler2; Verteiler3"  
    
    olMail.CC = "Verteiler4"  
    
    olMail.BCC = "Verteiler5"  
    
    ' Zeitlicher Ablauf der Nachricht  
    olMail.ExpiryTime = DateAdd("d", 1, Date)  
    
        olMail.Subject = "INFORMATION: Systemneustart am " & Me.txtDat.Value & " von " & Me.txtVon.Value & " Uhr" & " bis " & Me.txtBis.Value & " Uhr"   '& Me.txtAnwendung.Value  
        
                HTML_Body = "<HTML><Font face=" & "Arial" & "><font size=" & "2" & "<p>" & "Sehr geehrte Kolleginnen und Kollegen," & "</p>" & "<p></p>" & _  
                            "im Rechenzentrum stehen heute planmäßige Wartungsarbeiten an; daher müssen unsere in folgendem Zeitraum neugestartet werden:" & "<br>" & "<br>" & _  
                            "Beginn:  " & Me.txtVon.Value & " Uhr" & "<br>" & _  
                            "Ende: ca." & Me.txtBis.Value & " Uhr" & "<br>" & "<br>" & _  
                            "Infolge dieses Neustarts stehen den Anwendern kurzzeitig z.B. folgende Anwendungen nicht zur Verfügung:" & "<br>" & _  
                            "Anwendung 1" & "<br>" & _  
                            "Anwendung 2" & "<br>" & _  
                            "Anwendung 3....." & "<br>" & "<br>" & _  
                            "<b>" & "Hinweis:" & "</b>" & "<br>" & _  
                            "Bitte beenden Sie rechtzeitig Ihre Arbeit in diesen Anwendungen und melden sich aus dem System ab." & "<br>" & "<br>" & _  
                            "Vielen Dank für Ihr Verständnis." & "<p></p>" & _  
                            Absender & "</Font></Font></BODY></HTML>"  
    
     SchreibenDatensatz olMail.Subject, HTML_Body

     olMail.HTMLBody = HTML_Body
     olMail.Display
     MailVersendenStala
     End

End Sub


Private Sub cmdZurueck_Click()
    Me.Hide
    frmBrief1.Show
End Sub

Private Sub txtBis_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim Laenge As String
    Me.txtBis.MaxLength = 2
    If KeyAscii < 48 Or KeyAscii > 57 Then
'        If KeyAscii = 47 Then  
'            Exit Sub  
'        End If  
        KeyAscii = 0
    End If
    Laenge = Len(Me.txtBis.Value)
'    If Laenge = 2 Then  
'        Me.txtBis.Value = Me.txtBis.Value & ":"  
''    ElseIf Laenge = 5 Then  
''        Me.txtFA.Value = Me.txtFA.Value & "."  
'    End If  

End Sub


Private Sub txtVon_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim Laenge As String
    Me.txtVon.MaxLength = 5
    If KeyAscii < 48 Or KeyAscii > 57 Then
'        If KeyAscii = 47 Then  
'            Exit Sub  
'        End If  
        KeyAscii = 0
    End If
    Laenge = Len(Me.txtVon.Value)
    If Laenge = 2 Then
        Me.txtVon.Value = Me.txtVon.Value & ":"  
'    ElseIf Laenge = 5 Then  
'        Me.txtFA.Value = Me.txtFA.Value & "."  
    End If

End Sub

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 313528

Url: https://administrator.de/contentid/313528

Ausgedruckt am: 24.11.2024 um 16:11 Uhr

3 Kommentare

Neuester Kommentar

Moin,

du bastelst doch schon die Mail als HTML zusammen. Warum speicherst du das nicht zusammen mit den anderen Informationen (die Paar Tags drum herum wirst du sicher hinbekommen) nicht einfach in eine Textdatei mit der Extension .htm?

Gruß Krämer

Moin Krämer,

ich vermute mal, dass ich vor lauter Bäumen den Wald nicht sehe.
Ich bekomme die Formatierung leider nicht hin.
Ich muss allerdings auch dazu sagen, dass ich kein Programmierer bin und immer nur ein bisschen nebenbei daran rum bastel. Wenn man dann nen Jahr nix mehr damit gemacht hat, dann muss man sich in alles neu rein denken, und da hänge ich gerade

Lg Pago

Hi,

Ich bekomme die Formatierung leider nicht hin.

Which formatting ?? You are writing in crosswords

.
Date formatting ?

strFilename = Format(now,"yyyyMMdd\_HHMMSS") & oMail.Subject & ".html"

Regards

Frage VB for Applications Entwicklung

Mehr von Pago159

Outlook 2016 Mail mit Zeitablauf verschwindet bei TS-User, während bei PC Usern durchgestrichen dargestellt wirdPago159 - 2 Kommentare

Powershell Alias für Server im SkriptPago159 - 1 Kommentar

Outlook VBA.Net frmTest1 lässt sich nicht in frmTest2 (Name bestand schon mal) umbenennenPago159 - 1 Kommentar

USB-Stick laut Windows und Linux belegt, aber kein Inhalt zu sehenPago159 - 5 Kommentare

Heiß diskutiert

Sophos SFOS 20 DNAT funktioniert nichtsuperfun2k24 - 26 Kommentare

Kaufberatung Hardware - Hyper-V Cluster 3 Nodesuser217 - 25 Kommentare

Intel-E810 QSFP28 to Mikrotik QSPF+ mit 40Gbit VerbindungPharaun - 24 Kommentare

Testumgebung bauen (Grundlegend)prplemk2 - 19 Kommentare

Switch ohne STP ins Netzwerkmaisenkaiser - 15 Kommentare

Dom.Admin-Passwort ändern - Auswirkungen auf EX, HCW, AADCTJ.Hooker74 - 15 Kommentare

Creo 4.0 Lizenz Server (LMTOOLS)UnluckyProccess1999 - 13 Kommentare

FB7590 ISDN Fax-Funktionleberkaese - 13 Kommentare

Zertifikate in die Exchange Online GAL hochladenJudgelg - 13 Kommentare

Legaler Einsatz vom M365 Family in Business-UmgebungSarekHL - 11 Kommentare

Digitales Archiv - wie?ZZaaiiggaa - 11 Kommentare

Microsoft plant für 2025 mehrere Preiserhöhungenmax - 11 Kommentare