pago159
Aug 25, 2016, updated at 09:12:05 (UTC)
view1703
view3
0
Goto Top

Aus VBA E-Mail und HTML Dokument erstellen lassen

GermanQuestionVB for ApplicationsDevelopment
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
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 313528

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

Printed on: April 25, 2024 at 22:04 o'clock

3 Comments
Latest comment
Goto Top
Member: Kraemer
Kraemer Aug 25, 2016 at 09:17:09 (UTC)
Goto Top
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
Member: Pago159
Pago159 Aug 25, 2016 at 09:21:55 (UTC)
Goto Top
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 face-wink

Lg Pago
Mitglied: 129813
129813 Aug 25, 2016 updated at 09:54:49 (UTC)
Goto Top
Hi,
Ich bekomme die Formatierung leider nicht hin.
Which formatting ?? You are writing in crosswords face-smile.
Date formatting ?
strFilename = Format(now,"yyyyMMdd\_HHMMSS") & oMail.Subject & ".html"
Regards
GermanQuestionVB for ApplicationsDevelopment
Hotly discussed
gleixnerdCheck of ZFW Firewallgleixnerd - 5 Comments