Scribd
Upload
30 views1 page

Update by Extendoffice 2018

This VBA code contains a Worksheet_Change event that triggers if cell D7 is changed to a number less than 10. If this condition is met, it will call the Mail_small_Text_Outlook subroutine. This subroutine sets up an Outlook email with the subject "Avertizare" and body containing two lines of text. It will display the email for the user to send or send it directly.

Uploaded by

Grigoras Mihai
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
30 views1 page

Update by Extendoffice 2018

This VBA code contains a Worksheet_Change event that triggers if cell D7 is changed to a number less than 10. If this condition is met, it will call the Mail_small_Text_Outlook subroutine. This subroutine sets up an Outlook email with the subject "Avertizare" and body containing two lines of text. It will display the email for the user to send or send it directly.

Uploaded by

Grigoras Mihai
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 1

'Update by Extendoffice 2018/3/7

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next

If Target.Cells.Count > 1 Then Exit Sub

Set xRg = Intersect(Range("D7"), Target)

If xRg Is Nothing Then Exit Sub

If IsNumeric(Target.Value) And Target.Value < 10 Then

Call Mail_small_Text_Outlook

End If

End Sub

Sub Mail_small_Text_Outlook()

Dim xOutApp As Object

Dim xOutMail As Object

Dim xMailBody As String

Set xOutApp = CreateObject("Outlook.Application")

Set xOutMail = xOutApp.CreateItem(0)

xMailBody = "Hi there" & vbNewLine & vbNewLine & _

"This is line 1" & vbNewLine & _

"This is line 2"

On Error Resume Next

With xOutMail

.To = "andreea.farcas@romair.ro"

.CC = "mihai.grigoras@romair.ro"

.BCC = ""

.Subject = "Avertizare "

.Body = xMailBody

.Display 'or use .Send

End With

On Error GoTo 0

Set xOutMail = Nothing

Set xOutApp = Nothing

End Sub

You might also like

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy