VBA - Mail generieren
#11
Auch Hallo,

(05.09.2019, 14:25)SteBen schrieb: Hab's auch noch so versucht, aber so tut sich leider nichts...

Code:
' CREATE EMAIL OBJECT.
   Debug.Print RangetoHTML(Range("A1", Range("A1").End(xlDown) & (Range("A1", Range("A1").End(xlToRight).Offset(1, 0)))))

da wird nichts im Direktfenster (STRG + G) angezeigt?
Gruß Stefan
Win 10 / Office 2016
Top
#12
Hi Stefan,

wenn ich 'create email object in Deine Vartiante ändere, steht folgendes im Direktfenster.

Code:
<html xmlns:o="urn:schemas-microsoft-com:office:office"
xmlns:x="urn:schemas-microsoft-com:office:excel"
xmlns="http://www.w3.org/TR/REC-html40">

<head>
<meta http-equiv=Content-Type content="text/html; charset=windows-1252">
<meta name=ProgId content=Excel.Sheet>
<meta name=Generator content="Microsoft Excel 15">
<link rel=File-List href="11-09-19%2011-46-37-Dateien/filelist.xml">
<style id="Tabelle1_27516_Styles">
<!--table
   {mso-displayed-decimal-separator:"\,";
   mso-displayed-thousand-separator:"\.";}
.xl1527516
   {padding-top:1px;
   padding-right:1px;
   padding-left:1px;
   mso-ignore:padding;
   color:black;
   font-size:11.0pt;
   font-weight:400;
   font-style:normal;
   text-decoration:none;
   font-family:Calibri, sans-serif;
   mso-font-charset:1;
   mso-number-format:General;
   text-align:general;
   vertical-align:bottom;
   mso-background-source:auto;
   mso-pattern:auto;
   white-space:nowrap;}
.xl6327516
   {padding-top:1px;
   padding-right:1px;
   padding-left:1px;
   mso-ignore:padding;
   color:black;
   font-size:10.0pt;
   font-weight:400;
   font-style:normal;
   text-decoration:none;
   font-family:Calibri, sans-serif;
   mso-font-charset:0;
   mso-number-format:General;
   text-align:center;
   vertical-align:middle;
   border:.5pt solid black;
   background:white;
   mso-pattern:black none;
   white-space:normal;}
-->
</style>
</head>

<body>
<!--[if !excel]>&nbsp;&nbsp;<![endif]-->
<!--Die folgenden Informationen wurden durch den Web-Formular-Assistenten von
Microsoft Excel erstellt.-->
<!--Falls das gleiche Element mit Excel veröffentlicht wird, werden alle
Informationen zwischen den DIV-Etiketten ersetzt.-->
<!----------------------------->
<!--START OF OUTPUT FROM EXCEL PUBLISH AS WEB PAGE WIZARD -->
<!----------------------------->

<div id="Tabelle1_27516" align=left x:publishsource="Excel">

<table border=0 cellpadding=0 cellspacing=0 width=150 style='border-collapse:
collapse;table-layout:fixed;width:113pt'>
<col width=150 style='mso-width-source:userset;mso-width-alt:5485;width:113pt'>
<tr height=20 style='height:15.0pt'>
 <td height=20 class=xl6327516 width=150 style='height:15.0pt;width:113pt'>S055051815</td>
</tr>
<![if supportMisalignedColumns]>
<tr height=0 style='display:none'>
 <td width=150 style='width:113pt'></td>
</tr>
<![endif]>
</table>

</div>


<!----------------------------->
<!--END OF OUTPUT FROM EXCEL PUBLISH AS WEB PAGE WIZARD-->
<!----------------------------->
</body>

</html>
Das sagt mir leider absolut gar nichts....
Top
#13
Hallo,

ich habe keine Variante gepostet und das ist HTML-Code.
Gruß Stefan
Win 10 / Office 2016
Top
#14
@SteBen:
Schlage vor, nicht nur Probieren, sondern auch mal nachlesen ;)
Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 2 Gast/Gäste