Vitor Hugo Martins

Pessoal, preciso d ajuda, gostaria de criar um macro/script no outlook 2010 para que que ele selecione copie e substitua o texto a ser enviado na mensagem. No word o script ficou como abaixo, mas no outlook não sei como fazer. Sub Macro1() ' ' Macro1 Macro ' ' Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend Selection.Copy Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = vbTab .Replacement.Text = "" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.MoveUp Unit:=wdParagraph, Count:=3 Selection.MoveUp Unit:=wdLine, Count:=1 Selection.MoveUp Unit:=wdLine, Count:=4, Extend:=wdExtend Selection.MoveDown Unit:=wdLine, Count:=5, Extend:=wdExtend Selection.Copy End Sub

Pessoal, preciso d ajuda, gostaria de criar um macro/script no outlook 2010 para que que ele selecione copie e substitua o texto a ser enviado na mensagem. No word o script ficou como abaixo, mas no outlook não sei como fazer. Sub Macro1() ' ' Macro1 Macro ' ' Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend Selection.Copy Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = vbTab .Replacement.Text = "" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.MoveUp Unit:=wdParagraph, Count:=3 Selection.MoveUp Unit:=wdLine, Count:=1 Selection.MoveUp Unit:=wdLine, Count:=4, Extend:=wdExtend Selection.MoveDown Unit:=wdLine, Count:=5, Extend:=wdExtend Selection.Copy End Sub