VBScript, I'll pay whoever can write this script.

Angelina Gras
#1 / 7

I'll pay whoever can write this script.

It's a simple task if you know Visual Basic and its application to Outlook,
Word and Access and their interaction.

I pay 15 dollars or 10 UK pounds or 200 Austrian Schillings to the person
who writes me a script that does the following:

For each e-mail in Outlook folder X (which is second level down from
inbox) do
on error move e-mail into Oulook folder "error"
transform e-mail-text with a word macro (see below) and using the
sent-date of the e-mail
paste result into Access query "webform"
move e-mail into Outlook folder "done"

-----------
e-mail texts will look as follows:

****************************************************************************
***
Anrede: w
First_Name: First
Last_Name: Last
Titel:
Street: Weinbergstr. x
PLZ: 67590
Ort: London
Land: D-
Phone: 0624799xxxx

Woher: test

-------------

word macro to transform the e-mail text: Where it inserts "Datum" should be
the sent-date of the e-mail

Sub webform_neu()
Selection.Paste
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "*"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.HomeKey Unit:=wdStory
Selection.MoveRight Unit:=wdWord, Count:=3, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1

' in the line below the word Datum should be replaced by the sent-date
of the e-mail

Selection.TypeText Text:="Datum" & vbTab & "webform" & vbTab & "ja" & _
vbTab
Selection.Find.ClearFormatting
With Selection.Find
.Text = "^p"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.TypeText Text:=vbTab
Selection.MoveRight Unit:=wdWord, Count:=4, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.Find.ClearFormatting
With Selection.Find
.Text = "^p"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.MoveRight Unit:=wdWord, Count:=4, Extend:=wdExtend
Selection.TypeText Text:=vbTab
Selection.Find.ClearFormatting
With Selection.Find
.Text = "^p"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.MoveRight Unit:=wdWord, Count:=2, Extend:=wdExtend
Selection.TypeText Text:=vbTab
Selection.Find.ClearFormatting
With Selection.Find
.Text = "^p"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
'Selection.Delete Unit:=wdCharacter, Count:=1
Selection.MoveRight Unit:=wdWord, Count:=2, Extend:=wdExtend
Selection.TypeText Text:=vbTab
Selection.Find.ClearFormatting
With Selection.Find
.Text = "^p"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.MoveRight Unit:=wdWord, Count:=2, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.TypeText Text:=vbTab
Selection.Find.ClearFormatting
With Selection.Find
.Text = "Land"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Cut
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
With Selection.Find
.Text = "^p"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.MoveLeft Unit:=wdWord, Count:=2, Extend:=wdExtend
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.Paste
Selection.Find.ClearFormatting
With Selection.Find
.Text = "^p"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.MoveRight Unit:=wdWord, Count:=2, Extend:=wdExtend
Selection.TypeText Text:=vbTab
Selection.Find.ClearFormatting
With Selection.Find
.Text = "^p"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.MoveRight Unit:=wdWord, Count:=2, Extend:=wdExtend
Selection.TypeText Text:=vbTab
Selection.Find.ClearFormatting
With Selection.Find
.Text = "^p"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.MoveRight Unit:=wdWord, Count:=2, Extend:=wdExtend
Selection.TypeText Text:=vbTab
Selection.Find.ClearFormatting
With Selection.Find
.Text = "^p"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.MoveRight Unit:=wdWord, Count:=2, Extend:=wdExtend
Selection.TypeText Text:=vbTab
Selection.Find.ClearFormatting
With Selection.Find
.Text = "^p"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.HomeKey Unit:=wdStory, Extend:=wdExtend
Selection.ConvertToTable Separator:=wdSeparateByTabs, NumColumns:=13, _
NumRows:=1, Format:=wdTableFormatNone, ApplyBorders:=True,
ApplyShading:= _
True, ApplyFont:=True, ApplyColor:=True, ApplyHeadingRows:=True, _
ApplyLastRow:=False, ApplyFirstColumn:=True, ApplyLastColumn:=False,
_
AutoFit:=True, AutoFitBehavior:=wdAutoFitFixed
Selection.Cut
End Sub

Sat, 14 Dec 2002 03:00:00 GMT

Dominic Mark
#2 / 7

I'll pay whoever can write this script.

Go and hire someone if your too lazy to do it yourself. What your asking
isn't too hard you should be able to find someone in your area to do it for
you.

Have you got a college or university nearby? Why not ask some of the people
taking a course there, they will be nice and cheap....

--
Dominic

Sat, 14 Dec 2002 03:00:00 GMT

Steve Cochra
#3 / 7

I'll pay whoever can write this script.

You mean you aren't drooling to get that $15.

<G>

steve

Quote:

> Go and hire someone if your too lazy to do it yourself. What your asking
> isn't too hard you should be able to find someone in your area to do it
for
> you.

> Have you got a college or university nearby? Why not ask some of the
people
> taking a course there, they will be nice and cheap....

> --
> Dominic

Sat, 14 Dec 2002 03:00:00 GMT

Dominic Mark
#4 / 7

I'll pay whoever can write this script.

Nope.

--
Dominic

Sat, 14 Dec 2002 03:00:00 GMT

Spencer Tabber
#5 / 7

I'll pay whoever can write this script.

I wouldn't even read the description of the problem for 15 bucks let alone
solve it...

Quote:

> Nope.

> --
> Dominic

Sat, 14 Dec 2002 03:00:00 GMT

Michael Harri
#6 / 7

I'll pay whoever can write this script.

$15 goes a long toward buying a book on scripting...

--
Michael Harris
MVP Scripting

I wouldn't even read the description of the problem for 15 bucks let alone
solve it...

Quote:

> Nope.

> --
> Dominic

Sat, 14 Dec 2002 03:00:00 GMT

Lynn Trap
#7 / 7

I'll pay whoever can write this script.

You mean you're not willing to pay in Hungarian Forints? What a rip
off.....LOL.
--
Lynn Trapp
Access Developer
Wells Dairy, Inc.

Quote:

> It's a simple task if you know Visual Basic and its application to
Outlook,
> Word and Access and their interaction.

> I pay 15 dollars or 10 UK pounds or 200 Austrian Schillings to the person
> who writes me a script that does the following:

> For each e-mail in Outlook folder X (which is second level down from
> inbox) do
> on error move e-mail into Oulook folder "error"
> transform e-mail-text with a word macro (see below) and using the
> sent-date of the e-mail
> paste result into Access query "webform"
> move e-mail into Outlook folder "done"

> -----------
> e-mail texts will look as follows:

****************************************************************************

- Show quoted text -

Quote:

> ***
> Anrede: w
> First_Name: First
> Last_Name: Last
> Titel:
> Street: Weinbergstr. x
> PLZ: 67590
> Ort: London
> Land: D-
> Phone: 0624799xxxx

> Woher: test

> -------------

> word macro to transform the e-mail text: Where it inserts "Datum" should
be
> the sent-date of the e-mail

> Sub webform_neu()
> Selection.Paste
> Selection.Find.ClearFormatting
> Selection.Find.Replacement.ClearFormatting
> With Selection.Find
> .Text = "*"
> .Replacement.Text = ""
> .Forward = True
> .Wrap = wdFindContinue
> .Format = False
> .MatchCase = False
> .MatchWholeWord = False
> .MatchWildcards = False
> .MatchSoundsLike = False
> .MatchAllWordForms = False
> End With
> Selection.Find.Execute Replace:=wdReplaceAll
> Selection.HomeKey Unit:=wdStory
> Selection.MoveRight Unit:=wdWord, Count:=3, Extend:=wdExtend
> Selection.Delete Unit:=wdCharacter, Count:=1

> ' in the line below the word Datum should be replaced by the sent-date
> of the e-mail

> Selection.TypeText Text:="Datum" & vbTab & "webform" & vbTab & "ja" &
_
> vbTab
> Selection.Find.ClearFormatting
> With Selection.Find
> .Text = "^p"
> .Replacement.Text = ""
> .Forward = True
> .Wrap = wdFindContinue
> .Format = False
> .MatchCase = False
> .MatchWholeWord = False
> .MatchWildcards = False
> .MatchSoundsLike = False
> .MatchAllWordForms = False
> End With
> Selection.Find.Execute
> Selection.Delete Unit:=wdCharacter, Count:=1
> Selection.TypeText Text:=vbTab
> Selection.MoveRight Unit:=wdWord, Count:=4, Extend:=wdExtend
> Selection.Delete Unit:=wdCharacter, Count:=1
> Selection.Find.ClearFormatting
> With Selection.Find
> .Text = "^p"
> .Replacement.Text = ""
> .Forward = True
> .Wrap = wdFindContinue
> .Format = False
> .MatchCase = False
> .MatchWholeWord = False
> .MatchWildcards = False
> .MatchSoundsLike = False
> .MatchAllWordForms = False
> End With
> Selection.Find.Execute
> Selection.Delete Unit:=wdCharacter, Count:=1
> Selection.MoveRight Unit:=wdWord, Count:=4, Extend:=wdExtend
> Selection.TypeText Text:=vbTab
> Selection.Find.ClearFormatting
> With Selection.Find
> .Text = "^p"
> .Replacement.Text = ""
> .Forward = True
> .Wrap = wdFindContinue
> .Format = False
> .MatchCase = False
> .MatchWholeWord = False
> .MatchWildcards = False
> .MatchSoundsLike = False
> .MatchAllWordForms = False
> End With
> Selection.Find.Execute
> Selection.Delete Unit:=wdCharacter, Count:=1
> Selection.MoveRight Unit:=wdWord, Count:=2, Extend:=wdExtend
> Selection.TypeText Text:=vbTab
> Selection.Find.ClearFormatting
> With Selection.Find
> .Text = "^p"
> .Replacement.Text = ""
> .Forward = True
> .Wrap = wdFindContinue
> .Format = False
> .MatchCase = False
> .MatchWholeWord = False
> .MatchWildcards = False
> .MatchSoundsLike = False
> .MatchAllWordForms = False
> End With
> Selection.Find.Execute
> 'Selection.Delete Unit:=wdCharacter, Count:=1
> Selection.MoveRight Unit:=wdWord, Count:=2, Extend:=wdExtend
> Selection.TypeText Text:=vbTab
> Selection.Find.ClearFormatting
> With Selection.Find
> .Text = "^p"
> .Replacement.Text = ""
> .Forward = True
> .Wrap = wdFindContinue
> .Format = False
> .MatchCase = False
> .MatchWholeWord = False
> .MatchWildcards = False
> .MatchSoundsLike = False
> .MatchAllWordForms = False
> End With
> Selection.Find.Execute
> Selection.Delete Unit:=wdCharacter, Count:=1
> Selection.MoveRight Unit:=wdWord, Count:=2, Extend:=wdExtend
> Selection.Delete Unit:=wdCharacter, Count:=1
> Selection.TypeText Text:=vbTab
> Selection.Find.ClearFormatting
> With Selection.Find
> .Text = "Land"
> .Replacement.Text = ""
> .Forward = True
> .Wrap = wdFindContinue
> .Format = False
> .MatchCase = False
> .MatchWholeWord = False
> .MatchWildcards = False
> .MatchSoundsLike = False
> .MatchAllWordForms = False
> End With
> Selection.Find.Execute
> Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
> Selection.Delete Unit:=wdCharacter, Count:=1
> Selection.EndKey Unit:=wdLine, Extend:=wdExtend
> Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
> Selection.Cut
> Selection.Delete Unit:=wdCharacter, Count:=1
> Selection.HomeKey Unit:=wdStory
> Selection.Find.ClearFormatting
> With Selection.Find
> .Text = "^p"
> .Replacement.Text = ""
> .Forward = True
> .Wrap = wdFindContinue
> .Format = False
> .MatchCase = False
> .MatchWholeWord = False
> .MatchWildcards = False
> .MatchSoundsLike = False
> .MatchAllWordForms = False
> End With
> Selection.Find.Execute
> Selection.MoveLeft Unit:=wdWord, Count:=2, Extend:=wdExtend
> Selection.MoveLeft Unit:=wdCharacter, Count:=1
> Selection.Paste
> Selection.Find.ClearFormatting
> With Selection.Find
> .Text = "^p"
> .Replacement.Text = ""
> .Forward = True
> .Wrap = wdFindContinue
> .Format = False
> .MatchCase = False
> .MatchWholeWord = False
> .MatchWildcards = False
> .MatchSoundsLike = False
> .MatchAllWordForms = False
> End With
> Selection.Find.Execute
> Selection.Delete Unit:=wdCharacter, Count:=1
> Selection.MoveRight Unit:=wdWord, Count:=2, Extend:=wdExtend
> Selection.TypeText Text:=vbTab
> Selection.Find.ClearFormatting
> With Selection.Find
> .Text = "^p"
> .Replacement.Text = ""
> .Forward = True
> .Wrap = wdFindContinue
> .Format = False
> .MatchCase = False
> .MatchWholeWord = False
> .MatchWildcards = False
> .MatchSoundsLike = False
> .MatchAllWordForms = False
> End With
> Selection.Find.Execute
> Selection.Delete Unit:=wdCharacter, Count:=1
> Selection.MoveRight Unit:=wdWord, Count:=2, Extend:=wdExtend
> Selection.TypeText Text:=vbTab
> Selection.Find.ClearFormatting
> With Selection.Find
> .Text = "^p"
> .Replacement.Text = ""
> .Forward = True
> .Wrap = wdFindContinue
> .Format = False
> .MatchCase = False
> .MatchWholeWord = False
> .MatchWildcards = False
> .MatchSoundsLike = False
> .MatchAllWordForms = False
> End With
> Selection.Find.Execute
> Selection.Delete Unit:=wdCharacter, Count:=1
> Selection.MoveRight Unit:=wdWord, Count:=2, Extend:=wdExtend
> Selection.TypeText Text:=vbTab
> Selection.Find.ClearFormatting
> With Selection.Find
> .Text = "^p"
> .Replacement.Text = ""
> .Forward = True
> .Wrap = wdFindContinue
> .Format = False
> .MatchCase = False
> .MatchWholeWord = False
> .MatchWildcards = False
> .MatchSoundsLike = False
> .MatchAllWordForms = False
> End With
> Selection.Find.Execute
> Selection.Delete Unit:=wdCharacter, Count:=1
> Selection.MoveRight Unit:=wdWord, Count:=2, Extend:=wdExtend
> Selection.TypeText Text:=vbTab
> Selection.Find.ClearFormatting
> With Selection.Find
> .Text = "^p"
> .Replacement.Text = ""
> .Forward = True
> .Wrap = wdFindContinue
> .Format = False
> .MatchCase = False
> .MatchWholeWord = False
> .MatchWildcards = False
> .MatchSoundsLike = False
> .MatchAllWordForms = False
> End With
> Selection.Find.Execute
> Selection.MoveLeft Unit:=wdCharacter, Count:=1
> Selection.HomeKey Unit:=wdStory, Extend:=wdExtend
> Selection.ConvertToTable Separator:=wdSeparateByTabs, NumColumns:=13,
_
> NumRows:=1, Format:=wdTableFormatNone, ApplyBorders:=True,
> ApplyShading:= _
> True, ApplyFont:=True, ApplyColor:=True, ApplyHeadingRows:=True, _
> ApplyLastRow:=False, ApplyFirstColumn:=True,

ApplyLastColumn:=False,

- Show quoted text -

Quote:

> _
> AutoFit:=True, AutoFitBehavior:=wdAutoFitFixed
> Selection.Cut
> End Sub

Mon, 16 Dec 2002 03:00:00 GMT