Satura rādītājs
Šis ir vienkāršs piemērs tam, kā nosūtīt e -pastu no programmas Excel.
Noklikšķiniet šeit, lai iegūtu sarežģītāku piemēru: Nosūtiet darblapu pa e -pastu kā atsevišķu darbgrāmatu. Šis piemērs attiecas arī uz paroles aizsardzību un citām bieži sastopamām problēmām.
| 12345678910111213141516171819202122232425262728 | Apakšpasts_ darba grāmata ()Application.ScreenUpdating = NepareiziIzgaismojiet lietotni kā objektuDim OutMail kā objekts'Izveidojiet sākotnējos mainīgosSet OutApp = CreateObject ("Outlook.Application")Iestatīt OutMail = OutApp.CreateItem (0)'E -pastsPar kļūdu Atsākt nākamoAr OutMail.to = "[email protected]".CC = "".BCC = "".Subject = "Tēma".Body = "Pamatteksts"'.Attachments.Add (FilePath)' Neobligāti, ja jums ir pielikums.Displejs'.Sūtīt' Neobligāti, lai automatizētu e -pasta sūtīšanu.Beigt arKļūda GoTo 0Set OutMail = NekasSet OutApp = NekasApplication.ScreenUpdating = PatiessBeigu apakš |
