VBA code-Signature code failure

khaledocom · Feb 15, 2011

The bellow code shows Excel VBA code to make signature for outlook 2007 outgoing messages.
It works properly but doesn't show the picture in signature (Pic is not appearing). Can you help with this regarding.

<table width="560" border="0" cellpadding="0" cellspacing="0"><col style="width: 42pt;" width="56" span="10"> <tbody><tr style="height: 15.75pt;" height="21"> <td colspan="10" class="xl22" style="height: 15.75pt; width: 420pt;" width="560" height="21">The pic (photo) in my signature doesn't appear when I use signature code</td> </tr> <tr style="height: 15.75pt;" height="21"> <td colspan="10" class="xl22" style="height: 15.75pt;" height="21">It show only red X on top.
</td> </tr> </tbody></table>
Code:

Function GetBoiler(ByVal sFile As String) As String

Dim fso As Object
Dim ts As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
GetBoiler = ts.readall
ts.Close
End Function

Sub Mail_Outlook_With_Signature_Plain()

Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim SigString As String
Dim Signature As String

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

strbody = "Go for test mode of Qtel billing and recovery"

SigString = "C:\Documents and Settings\" & Environ("username") & _
"\Application Data\Microsoft\Signatures\Khaledo.htm"

If Dir(SigString) <> "" Then
Signature = GetBoiler(SigString)
Else
Signature = ""
End If

On Error Resume Next
With OutMail
.To = "khaledocom@yahoo.com"
.CC = ""
.BCC = ""
.Subject = "Test Mode"
.HTMLBody = strbody & " " & Signature

.Send
End With

On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

I'm very thankful for your help and support.

khaledocom · Feb 20, 2011

My friend I was explaining the whole project to you.
HTM file contains

My name
Company
Address
Phones

Picture

Ruddles · Feb 20, 2011

An HTML file is plain text and can't 'contain a picture'. Can you show us the contents of that file?

(Insert a space after each < character.)

khaledocom · Feb 21, 2011

Source code for htm page:

<html xmlns:v="urn:schemas-microsoft-com:vml"
xmlns

="urn:schemas-microsoft-com

ffice

ffice"
xmlns:w="urn:schemas-microsoft-com

ffice:word"
xmlns:m="http://schemas.microsoft.com/office/2004/12/omml"
xmlns="http://www.w3.org/TR/REC-html40">

<head>
****** http-equiv=Content-Type content="text/html; charset=windows-1256">
****** name=ProgId content=Word.Document>
****** name=Generator content="Microsoft Word 12">
****** name=Originator content="Microsoft Word 12">
<link rel=File-List href="PDC_files/filelist.xml">
<link rel=Edit-Time-Data href="PDC_files/editdata.mso">

<link rel=themeData href="PDC_files/themedata.thmx">
<link rel=colorSchemeMapping href="PDC_files/colorschememapping.xml">

<style>
<!--
/* Font Definitions */
@font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;
mso-font-charset:1;
mso-generic-font-family:roman;
mso-font-format

ther;
mso-font-pitch:variable;
mso-font-signature:0 0 0 0 0 0;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;
mso-font-charset:0;
mso-generic-font-family:swiss;
mso-font-pitch:variable;
mso-font-signature:-1610611985 1073750139 0 0 159 0;}
@font-face
{font-family:Webdings;
panose-1:5 3 1 2 1 5 9 6 7 3;
mso-font-charset:2;
mso-generic-font-family:roman;
mso-font-pitch:variable;
mso-font-signature:0 268435456 0 0 -2147483648 0;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{mso-style-unhide:no;
mso-style-qformat:yes;
mso-style-parent:"";
margin:0in;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:11.0pt;
font-family:"Calibri","sans-serif";
mso-ascii-font-family:Calibri;
mso-ascii-theme-font:minor-latin;
mso-fareast-font-family:"Times New Roman";
mso-fareast-theme-font:minor-fareast;
mso-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;
mso-bidi-font-family:Arial;
mso-bidi-theme-font:minor-bidi;}
a:link, span.MsoHyperlink
{mso-style-noshow:yes;
mso-style-priority:99;
color:blue;
text-decoration:underline;
text-underline:single;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-noshow:yes;
mso-style-priority:99;
color

urple;
mso-themecolor:followedhyperlink;
text-decoration:underline;
text-underline:single;}
.MsoChpDefault
{mso-style-type:export-only;
mso-default-props:yes;
font-size:11.0pt;
mso-ansi-font-size:11.0pt;
mso-bidi-font-size:11.0pt;
mso-ascii-font-family:Calibri;
mso-ascii-theme-font:minor-latin;
mso-fareast-font-family:"Times New Roman";
mso-fareast-theme-font:minor-fareast;
mso-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;
mso-bidi-font-family:Arial;
mso-bidi-theme-font:minor-bidi;}
@page Section1
{size:8.5in 11.0in;
margin:1.0in 1.25in 1.0in 1.25in;
mso-header-margin:.5in;
mso-footer-margin:.5in;
mso-paper-source:0;}
div.Section1
{page:Section1;}
-->
</style>

</head>
</pre>
<body lang=EN-US link=blue vlink=purple style='tab-interval:.5in'>

<div class=Section1>

Best Regards<o

></o

>

<o

> </o

>

Khaledo<o

></o

>

Finance
Department<o

></o

>

Tel
</pre>
+20 33051216 <o

></o

>

<o

> </o

>

OPDC Sphinx Trading Co<o

></o

>

136 DC ring - Cairo, Egypt<o

></o

>

<!--[if gte vml 1]><v:shapetype
id="_x0000_t75" coordsize="21600,21600" o:spt="75" o

referrelative="t"
path="m@4@5l@4@11@9@11@9@5xe" filled="f" stroked="f">
<v:stroke joinstyle="miter"/>
<v:formulas>
<v:f eqn="if lineDrawn pixelLineWidth 0"/>
<v:f eqn="sum @0 1 0"/>
<v:f eqn="sum 0 0 @1"/>
<v:f eqn="prod @2 1 2"/>
<v:f eqn="prod @3 21600 pixelWidth"/>
<v:f eqn="prod @3 21600 pixelHeight"/>
<v:f eqn="sum @0 0 1"/>
<v:f eqn="prod @6 1 2"/>
<v:f eqn="prod @7 21600 pixelWidth"/>
<v:f eqn="sum @8 21600 0"/>
<v:f eqn="prod @7 21600 pixelHeight"/>
<v:f eqn="sum @10 21600 0"/>
</v:formulas>
<v

ath o:extrusionok="f" gradientshapeok="t" o:connecttype="rect"/>
<o:lock v:ext="edit" aspectratio="t"/>
</v:shapetype><v:shape id="_x0000_i1025" type="#_x0000_t75" style='width:207.75pt;
height:136.5pt'>
<v:imagedata src="PDC_files/image001.png" o:title=""/>
</v:shape><![endif]--><![if !vml]><img width=277 height=182
src="PDC_files/image002.jpg" v:shapes="_x0000_i1025"><![endif]><o

></o

>

<o

> </o

>

ü Please don't print this e-mail unless you really need
to
</pre>
<o

> </o

>

</div>

</body>

</html>
</pre>

Ruddles · Feb 21, 2011

Please can you check what you posted. Did you just paste the text from your file directly into a message?

khaledocom · Feb 23, 2011

It's the source code for signatures htm page

Ruddles · Feb 23, 2011

Please can you look back up the thread and actually look at what you posted?

I'm sure the file doesn't really look like that when you open it in a text editor.

khaledocom · Feb 24, 2011

The above is a snap shot for the htm file

Ruddles · Feb 24, 2011

I need to see the actual text that's in the file - exactly as it appears when you open it in a text editor like Notepad.

After you paste it into a message and click Submit Reply, check that it appears in your message exactly as it does in Notepad.

khaledocom · Feb 26, 2011

Below is the code of that page from notepad:
____________________________________________________________

<html xmlns:v="urn:schemas-microsoft-com:vml"
xmlns

="urn:schemas-microsoft-com

ffice

ffice"
xmlns:w="urn:schemas-microsoft-com

ffice:word"
xmlns:m="http://schemas.microsoft.com/office/2004/12/omml"
xmlns="http://www.w3.org/TR/REC-html40">
<head>
****** http-equiv=Content-Type content="text/html; charset=windows-1256">
****** name=ProgId content=Word.Document>
****** name=Generator content="Microsoft Word 12">
****** name=Originator content="Microsoft Word 12">
<link rel=File-List href="PDC_files/filelist.xml">
<link rel=Edit-Time-Data href="PDC_files/editdata.mso">

<link rel=themeData href="PDC_files/themedata.thmx">
<link rel=colorSchemeMapping href="PDC_files/colorschememapping.xml">

<style>
<!--
/* Font Definitions */
@font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;
mso-font-charset:1;
mso-generic-font-family:roman;
mso-font-format

ther;
mso-font-pitch:variable;
mso-font-signature:0 0 0 0 0 0;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;
mso-font-charset:0;
mso-generic-font-family:swiss;
mso-font-pitch:variable;
mso-font-signature:-1610611985 1073750139 0 0 159 0;}
@font-face
{font-family:Webdings;
panose-1:5 3 1 2 1 5 9 6 7 3;
mso-font-charset:2;
mso-generic-font-family:roman;
mso-font-pitch:variable;
mso-font-signature:0 268435456 0 0 -2147483648 0;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{mso-style-unhide:no;
mso-style-qformat:yes;
mso-style-parent:"";
margin:0in;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:11.0pt;
font-family:"Calibri","sans-serif";
mso-ascii-font-family:Calibri;
mso-ascii-theme-font:minor-latin;
mso-fareast-font-family:"Times New Roman";
mso-fareast-theme-font:minor-fareast;
mso-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;
mso-bidi-font-family:Arial;
mso-bidi-theme-font:minor-bidi;}
a:link, span.MsoHyperlink
{mso-style-noshow:yes;
mso-style-priority:99;
color:blue;
text-decoration:underline;
text-underline:single;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-noshow:yes;
mso-style-priority:99;
color

urple;
mso-themecolor:followedhyperlink;
text-decoration:underline;
text-underline:single;}
.MsoChpDefault
{mso-style-type:export-only;
mso-default-props:yes;
font-size:11.0pt;
mso-ansi-font-size:11.0pt;
mso-bidi-font-size:11.0pt;
mso-ascii-font-family:Calibri;
mso-ascii-theme-font:minor-latin;
mso-fareast-font-family:"Times New Roman";
mso-fareast-theme-font:minor-fareast;
mso-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;
mso-bidi-font-family:Arial;
mso-bidi-theme-font:minor-bidi;}
@page Section1
{size:8.5in 11.0in;
margin:1.0in 1.25in 1.0in 1.25in;
mso-header-margin:.5in;
mso-footer-margin:.5in;
mso-paper-source:0;}
div.Section1
{page:Section1;}
-->
</style>

</head>

<body lang=EN-US link=blue vlink=purple style='tab-interval:.5in'>

<div class=Section1>

Best Regards<o

></o

>

<o

> </o

>

Khaledo<o

></o

>

Finance
Department<o

></o

>

Tel
+20 33051216 <o

></o

>

<o

> </o

>

OPDC Sphinx Trading Co<o

></o

>

136 DC ring - Cairo, Egypt<o

></o

>

<!--[if gte vml 1]><v:shapetype
id="_x0000_t75" coordsize="21600,21600" o:spt="75" o

referrelative="t"
path="m@4@5l@4@11@9@11@9@5xe" filled="f" stroked="f">
<v:stroke joinstyle="miter"/>
<v:formulas>
<v:f eqn="if lineDrawn pixelLineWidth 0"/>
<v:f eqn="sum @0 1 0"/>
<v:f eqn="sum 0 0 @1"/>
<v:f eqn="prod @2 1 2"/>
<v:f eqn="prod @3 21600 pixelWidth"/>
<v:f eqn="prod @3 21600 pixelHeight"/>
<v:f eqn="sum @0 0 1"/>
<v:f eqn="prod @6 1 2"/>
<v:f eqn="prod @7 21600 pixelWidth"/>
<v:f eqn="sum @8 21600 0"/>
<v:f eqn="prod @7 21600 pixelHeight"/>
<v:f eqn="sum @10 21600 0"/>
</v:formulas>
<v

ath o:extrusionok="f" gradientshapeok="t" o:connecttype="rect"/>
<o:lock v:ext="edit" aspectratio="t"/>
</v:shapetype><v:shape id="_x0000_i1025" type="#_x0000_t75" style='width:207.75pt;
height:136.5pt'>
<v:imagedata src="PDC_files/image001.png" o:title=""/>
</v:shape><![endif]--><![if !vml]><img width=277 height=182
src="PDC_files/image002.jpg" v:shapes="_x0000_i1025"><![endif]><o

></o

>

<o

> </o

>

ü Please don't print this e-mail unless you really need
to

<o

> </o

>

</div>

</body>

</html>

Ruddles · Feb 26, 2011

And is that exactly what it looks like in Notepad? With different fonts and blue and green characters?

VBA code-Signature code failure

khaledocom

New Member

khaledocom

New Member

Excel Facts

Ruddles

Well-known Member

khaledocom

New Member

Ruddles

Well-known Member

khaledocom

New Member

Ruddles

Well-known Member

khaledocom

New Member

Ruddles

Well-known Member

khaledocom

New Member

Ruddles

Well-known Member

Similar threads

Forum statistics

Share this page

VBA code-Signature code failure

New Member

New Member

Excel Facts

Well-known Member

New Member

Well-known Member

New Member

Well-known Member

New Member

Well-known Member

New Member

Well-known Member

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock