Outlook 2013 skript :: Hinnavaatluse Foorumid

Avaleht

:: KKK :: otsing

:: statistika :: kasutajate nimekiri :: kasutajate grupid :: registreeri
profiil :: lemmikud :: logi sisse, et näha oma privaatsõnumeid :: logi sisse

Tarkvara » Tarkvara » Outlook 2013 skript

märgi kõik teemad loetuks
märgi mitteloetuks
vaata eelmist teemat :: vaata järgmist teemat

Hinnavaatlus :: Foorum :: Uudised :: Ärifoorumid :: HV F1 ennustusvõistlus :: Pangalink :: Telekavad :: HV toote otsing

	Samsung Galaxy M15 5G - 139.99
	Kõikidele Canyon akupankadele soodustus kuni 30%! Vaata Euronics.ee
	Ole suveks valmis - mängi kõikjal ja vali Lorgar
	O: gtx 295 või HD4780x2	1	193

autor

sõnum :: teata moderaatorile	otsing:

Ülempealik
HV vaatleja

liitunud: 19.09.2006

05.08.2016 11:35:09 Outlook 2013 skript

vasta tsitaadiga

Kasutan Outlookis kindlalt saatjalt saabuva manusega emaili edasisaatmiseks reeglit koos alloleva skriptiga:

Sub ForwardEmail(item As Outlook.MailItem)
' Dim oExplorer As Outlook.Explorer
Dim oMail As MailItem
' Set oExplorer = Application.ActiveExplorer

On Error GoTo Release

' If oExplorer.Selection.item(1).Class = olMail Then

Set oMail = item.Forward
oMail.Subject = "New Invoice"
oMail.HTMLBody = "Dear AP team,Please process attached invoice." & oMail.HTMLBody
oMail.Recipients.Add "email@email.ee"

' oMail.Save
oMail.Send

' End If

Release:
Set oMail = Nothing
' Set oExplorer = Nothing
End Sub

Kõik nagu töötab.
Aga kirjaga jääb kaasa ka esialgne email.

Sellise skriptiga seda esialgset ekirja kaasa ei lähe aga samas kaotab ära ka minu signatuuri:

Sub ForwardEmail(item As Outlook.MailItem)
' Dim oExplorer As Outlook.Explorer
Dim oMail As MailItem
' Set oExplorer = Application.ActiveExplorer

On Error GoTo Release

' If oExplorer.Selection.item(1).Class = olMail Then

Set oMail = item.Forward
oMail.Subject = "New Invoice"
oMail.HTMLBody = "Dear AP team,Please process attached invoice."
oMail.Recipients.Add "email@email.ee"

' oMail.Save
oMail.Send

' End If

Release:
Set oMail = Nothing
' Set oExplorer = Nothing
End Sub

Oskab keegi nõua anda või siis aitab natuke kohendada, et saaks soovitud tulemuse?

vaata kasutaja infot

saada privaatsõnum

alfreedo
HV vaatleja

liitunud: 20.06.2010

07.08.2016 20:16:57

Kui sa nüüd signatuuri all mõtled allkirja siis pane lihtsalt: oMail.HTMLBody = "Dear AP team,Please process attached invoice." & vbCrLf & vbCrLf & vbCrLf & vbCrLf & "Alfreedolt"

Kommentaarid: 2 loe/lisa

Kasutajad arvavad:

::

0 ::

0 ::

2

vaata kasutaja infot

saada privaatsõnum

näita postitusi alates eelmisest:

Tarkvara » Tarkvara » Outlook 2013 skript

[vaata eelmist teemat] [vaata järgmist teemat]

näita foorumit:

ignoreeri teemat

sa ei või postitada uusi teemasid siia foorumisse
sa ei või vastata selle foorumi teemadele
sa ei või muuta oma postitusi selles foorumis
sa ei või kustutada oma postitusi selles foorumis
sa ei või vastata küsitlustele selles foorumis
sa ei saa lisada manuseid selles foorumis
sa võid manuseid alla laadida selles foorumis

Hinnavaatlus ei vastuta foorumis tehtud postituste eest.