[MS Publisher] Hoe een formulier verzendbaar maken

Pagina: 1
Acties:

  • Woudloper
  • Registratie: November 2001
  • Niet online

Woudloper

« - _ - »

Topicstarter
Een kennis van mij onderhoud zijn website met MS Publisher. Nu heeft hij onlangs een upgrade gedaan van MS Publisher (van versie 98 naar 2003) en werkt het één en ander niet meer.

Wanneer je voorheen in MS Publisher een formulier ging toevoegen kon je eenvoudig na afloop even de pagina openen en even de volgende regel aanpassen:
HTML:
1
<form method=post>

naar bijvoorbeeld:
HTML:
1
<form method="post" action="mailto:blaat@blaatcompany.nl" enctype="text/plain">


Dat kan nu nog wel, echter de HTML code is een stuk ondoorzichtiger geworden. Er staat nu heel erg veel rommel tusssen. Nu heb ik binnen MS Publisher de form properties op weten te vragen, echter heb je daar de volgende 3 mogelijkheden:
[list]
• Save the data in a file on my web server
• Send the data to me in e-mail
• Use a program from my isp

Voor de eerste 2 moet de provider MS Frontpage Extensions hebben geïnstalleerd en dat is niet het geval. Nu wil ik voor de laatste gaan, echter beschikt de provider daar ook niet over.

Nu heb ik wel de action welke je kan invullen weten aan te passen naar: blaat@blaatcompany.nl, maar dan word de data van het formulier als attachment meegestuurd en dat wil ik liever niet. Nu wil ik het attribute ENCTYPE nog toevoegen aan het formulier. Weet iemand of dit mogelijk is middels MS Publisher of moet ik daar toch écht de HTML code voor aanpassen?

  • Woudloper
  • Registratie: November 2001
  • Niet online

Woudloper

« - _ - »

Topicstarter
Even een schop aangezien ik nog geen oplossing heb gevonden voor dit probleem. Iemand nog een idee hoe ik er voor kan zorgen dat een attribuut kan worden toevoegd aan de <form> tag in MS Publisher.

Zelf heb ik dit blog nog gevonden, daar schrijft hij een paar topics (1, 2 en 3) over het opslaan van custom properties in tags, maar verder heb ik niets kunnen vinden...

  • BtM909
  • Registratie: Juni 2000
  • Niet online

BtM909

Watch out Guys...

Kan je een stukje van die 'ondoorzichtige' code hier neerplempen?

Kan je wel makkelijk JS'jes toevoegen? Wellicht dat je een JS-snippet kan maken die die enctype onload zet.

Ace of Base vs Charli XCX - All That She Boom Claps (RMT) | Clean Bandit vs Galantis - I'd Rather Be You (RMT)
You've moved up on my notch-list. You have 1 notch
I have a black belt in Kung Flu.


  • Woudloper
  • Registratie: November 2001
  • Niet online

Woudloper

« - _ - »

Topicstarter
Je krijgt een standaard output bij MS Publisher die er als volgt uitziet (heb maar een klein stukje genomen, omdat er erg veel rommel tussen staat):

HTML:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
<form action="mailto:blaat@blaatcompany.nl" method=post>
<![endif]><!--[if gte vml 1]><v:rect id="_x0000_s1498" style='position:absolute;
 left:.61pt;top:.37pt;width:568.64pt;height:99.38pt;z-index:37;visibility:visible;
 mso-wrap-edited:f;mso-wrap-distance-left:2.88pt;mso-wrap-distance-top:2.88pt;
 mso-wrap-distance-right:2.88pt;mso-wrap-distance-bottom:2.88pt;
 mso-position-horizontal:absolute;mso-position-horizontal-relative:text;
 mso-position-vertical:absolute;mso-position-vertical-relative:text' filled="f"
 fillcolor="white [7]" strokecolor="#fc0 [2]" strokeweight="1.5pt"
 o:cliptowrap="t">
 <v:fill color2="black [0]"/>
 <v:stroke>
  <o:left v:ext="view" color="black [0]" color2="white [7]"/>
  <o:top v:ext="view" color="black [0]" color2="white [7]"/>
  <o:right v:ext="view" color="black [0]" color2="white [7]"/>
  <o:bottom v:ext="view" color="black [0]" color2="white [7]"/>
  <o:column v:ext="view" color="black [0]" color2="white [7]"/>
 </v:stroke>
 <v:shadow color="#ccc [4]"/>
 <v:path insetpenok="f"/>
 <o:lock v:ext="edit" shapetype="t"/>
 <v:textbox inset="2.88pt,2.88pt,2.88pt,2.88pt"/>
</v:rect><![endif]--><![if !vml]><span style='position:absolute;z-index:37;
left:-1px;top:-1px;width:761px;height:136px'><img width=761 height=136
src=image307.gif v:shapes="_x0000_s1498"></span><![endif]><!--[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_s1499" type="#_x0000_t202" style='position:absolute;
 left:106.46pt;top:24.32pt;width:279pt;height:23.68pt;z-index:38;visibility:visible;
 mso-wrap-edited:f;mso-wrap-distance-left:2.88pt;mso-wrap-distance-top:2.88pt;
 mso-wrap-distance-right:2.88pt;mso-wrap-distance-bottom:2.88pt;
 mso-position-horizontal:absolute;mso-position-horizontal-relative:text;
 mso-position-vertical:absolute;mso-position-vertical-relative:text' filled="f"
 fillcolor="black [0]" stroked="f" strokecolor="black [0]" strokeweight="0"
 o:cliptowrap="t">
 <v:fill color2="white [7]"/>
 <v:stroke>
  <o:left v:ext="view" color="black [0]" color2="white [7]"/>
  <o:top v:ext="view" color="black [0]" color2="white [7]"/>
  <o:right v:ext="view" color="black [0]" color2="white [7]"/>
  <o:bottom v:ext="view" color="black [0]" color2="white [7]"/>
  <o:column v:ext="view" color="black [0]" color2="white [7]"/>
 </v:stroke>
 <v:shadow color="#ccc [4]"/>
 <v:path insetpenok="f"/>
 <o:lock v:ext="edit" shapetype="t"/>
 <v:textbox style='mso-column-margin:5.7pt' inset="2.85pt,2.85pt,2.85pt,2.85pt"/>
</v:shape><![endif]--><![if !vml]><span style='position:absolute;z-index:38;
left:142px;top:32px;width:372px;height:32px'>


Eigenlijk gaat het mij erom dat ik het <form> vanuit de MS Publisher userinterface kan aanpassen. In de gehele help is er niets over te vinden, overigens staat er erg weinig informatie over het maken van websites met MS Publisher. Als je kijkt naar het topic #3 uit mijn vorige post, denk ik toch dat het met bijvoorbeeld onderstaande VBA code moet gaan gebeuren:
Visual Basic:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
For Each d In Documents
  For Each p In d.Pages
    For Each s In p.Shapes
      If s.Type = pbTextFrame Then
        For Each t In s.Tags
          If (t.Name = "StoryType" And t.Value = "PullQuote") Then
            s.TextFrame.TextRange.Font.Name = "Arial"
            s.TextFrame.TextRange.Font.Size = 20
          End If
        Next t
      End If
    Next s
  Next p
Next d

  • BtM909
  • Registratie: Juni 2000
  • Niet online

BtM909

Watch out Guys...

Ik zou sowieso MS hier even een mail over sturen. Heb daar goede ervaringen mee, btw.

IIG, mijn andere optie (JS-snippet), is dat geen alternatief?

Of gewoon niet in Publisher werken :+

Ace of Base vs Charli XCX - All That She Boom Claps (RMT) | Clean Bandit vs Galantis - I'd Rather Be You (RMT)
You've moved up on my notch-list. You have 1 notch
I have a black belt in Kung Flu.