Avatar billede Butterfly Ekspert
19. januar 2022 - 07:35 Der er 1 løsning

Sende mail, hvis G3>0

Godmorgen
Jeg har et regneark hvor jeg har lavet en makro der kan sende et udklip af siden i en mail. Den sendes til en bestemt mailadresse test@test.dk
Nu ønsker jeg at sende til en anden mail, hvis G3>0, så skal den sende til min@mail.dk
Min kode ser sådan ud

Sub MailNyOrdre()
ActiveSheet.Unprotect
Dim rng As Range
Dim OutApp As Object
Dim OutMail As Object
Set rng = Nothing
Set rng = Range("A1:K30").SpecialCells(xlCellTypeVisible)
With Application
    .EnableEvents = False
    .ScreenUpdating = False
End With
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
    .To = ThisWorkbook.Sheets("Data").Range("B4").Value
    .CC = ""
    .BCC = ""
    .Subject = "Nyt indkøb " & Ark1.Range("D1")
    .HTMLBody = RangetoHTML(rng)
    .Display
End With
On Error GoTo 0
With Application
    .EnableEvents = True
    .ScreenUpdating = True
End With
Set OutMail = Nothing
Set OutApp = Nothing
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("B3").Select
End Sub
Avatar billede kim1a Ekspert
19. januar 2022 - 08:49 #1
Jeg tror det nemmeste vil være at have den anden mail i en celle også, og så simpelthen i starten skabe en variabel:
if range("G3").value > 3 then
strMailTo = ThisWorkbook.Sheets("Data").Range("B4").Value
else
strMailTo = ThisWorkbook.Sheets("Data").Range("B500").Value
end if

Så skal du erstatte i dette afsnit:
With OutMail
    .To = ThisWorkbook.Sheets("Data").Range("B4").Value <- erstat med .To = strMailTo
    .CC = ""
    .BCC = ""
    .Subject = "Nyt indkøb " & Ark1.Range("D1")
    .HTMLBody = RangetoHTML(rng)
    .Display
End With
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester





CIO
Årets CIO 2022: Nu skal Danmarks dygtigste CIO findes - er det dig? Eller kender du en, du vil indstille?