MS Excel

Téma: Makro - vymazať text z emailu

Zaslal/a kabaka 18.4.2017 9:49

Správa poslaná od A pre B, a následne od B pre C.
Toto ostane v tele správy, ak sa pošle od B pre C.
Je možné to automaticky vymazať nejakým makrom?
(win xp, outlook 2003)

---------- Forwarded message ----------
From: odosielateľA <odosielateľA@gmail.com>
Date: 2017-04-18 9:27 GMT+02:00
Subject: dokument poslaný od A pre B
To: príjemca B <príjemcaB@gmail.com>

Zaslat odpověď >

kabaka(20.4.2017 17:22)#036130

úprava preposlanej správy (zadanie v otázke nie je už aktuálne, len otázka sa mi už nedá upraviť)

win xp (platí pre pracovný PC, outlook 2003 sk), doma mám win 7, outlook 2003 cz

From: menopriezvisko [mailto:menopriezvisko@gmail.com]
Sent: Saturday, April 22, 2017 1:33 PM
To: 'menopriezvisko@gmail.com'
Subject: predmet

makro

Sub SendMobileAlert(Alert As MailItem)

Dim SafeItem, oItem
Set SafeItem = CreateObject("Redemption.SafeMailItem") 'Create an instance of Redemption.SafeMailItem
Set oItem = Application.CreateItem(0) 'Create a new message

Dim objMail As MailItem
Dim AlertingMessage As Redemption.SafeMailItem

Set AlertingMessage = CreateObject("Redemption.SafeMailItem")

AlertingMessage.Item = Alert

SafeItem.Item = oItem 'set Item property
SafeItem.Recipients.Add "XXXXXXXXXX@gmail.com"
SafeItem.Subject = "predmet"
SafeItem.Body = AlertingMessage.Body
SafeItem.Send

Set objMail = Nothing
Set Alert = Nothing
Set AlertingMessage = Nothing

End Subcitovat

kabaka(22.4.2017 10:57)#036145

Našla som toto makro.
Len by som ho potrebovala upraviť pre potreby outlook 2003.

https://social.technet.microsoft.com/Forums/exchange/en-US/9c9a5a1c-c104-4b5a-b8ad-13f4ac228d78/outlook-2003-forward-message-without-header-info?forum=exchangesvrclientslegacycitovat

Téma: Makro - vymazať text z emailu

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje