Problem bei VBA-EMail-Versand: meta-Angabe in head
29.09.2015 16:32:11
Martin
seit zwei Tagen versuche ich vergebens folgende meta-Angabe in der head-Information einer Email von Microsoft Outlook 2010 zu ergänzen:
<meta name="format-detection" content="telephone=no">
Ich habe den Code stark verschlankt, die Werte der Tabelle werden eigentlich dynamisch erzeugt und sind viel umfangreicher. Folgenden Code verwende ich:
Option Explicit
Sub Excel_Serienmail_via_Outlook_Senden()
Dim OutApp As Object, objMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set objMail = OutApp.CreateItem(0)
'Email erzeugen
With objMail
.To = "name@email.de" 'Email-Adresse anpassen!
.Subject = "Testmail"
.BodyFormat = 2 'olFormatHTML
.HTMLBody = htmlCode 'htmlCode auf Function
'Debug.Print .HTMLBody
'.Save
.Display
'.Send
End With
Set OutApp = Nothing
Set objMail = Nothing
End Sub
Function htmlCode() As String 'liefert den HTML-Coder der Email
Dim i As Integer
htmlCode = "<html>" & vbCrLf & "<head>" & vbCrLf
htmlCode = htmlCode & "<meta name=""format-detection"" content=""telephone=no"">"
htmlCode = htmlCode & vbCrLf & "</head>" & vbCrLf & "<body>"
htmlCode = htmlCode & vbCrLf & "<table border=""1"">"
For i = 1 To 3
htmlCode = htmlCode & vbCrLf & vbTab & "<tr>"
htmlCode = htmlCode & vbCrLf & vbTab & vbTab & "<td>123</td>"
htmlCode = htmlCode & vbCrLf & vbTab & vbTab & "<td>456</td>"
htmlCode = htmlCode & vbCrLf & vbTab & vbTab & "<td>789</td>"
htmlCode = htmlCode & vbCrLf & vbTab & "</tr>"
Next i
htmlCode = htmlCode & vbCrLf & "</table>"
htmlCode = htmlCode & vbCrLf & "</body>" & vbCrLf & "</html>"
End Function
Viele Grüße
Martin