Excel-VBA. Advarsel ved mailudsendelse...
Jeg genererer en mail med noget VBA-kode, så brugeren automatiseret udsender en mail hvor man beskriver de ændringer der er foretaget.newmsg.Body = newmsg.Body & "Planen er opdateret" & Chr(10)
newmsg.Body = newmsg.Body & "Planen findes som altid på stien" & Chr(10) & "file:\\drevnavn\directory\DOKUMENT\IM1FER~3\FERMEN~2\ALLEPL~2\GRINGS~1\GRINGS~3.XLS" & Chr(10) & Chr(10)
newmsg.Body = newmsg.Body & "mvh Supportgruppen" & Chr(10) & Chr(10)
newmsg.Body = newmsg.Body & "Denne mail er systemskabt..." & Chr(10) & Chr(10)
newmsg.Display 'display
newmsg.Send 'send message 'give conformation of sent message
Når koden afvikles er brugerens PC begyndt fremkomme med en advarsel, der spørger brugeren om tilladelse til at benytte Outlook: "A program is trying to send an email on your behalf." osv, og der skal vælges Allow eller Deny.
Jeg kan høre at det er noget der forvirrer brugeren - især fordi den fremkommer 5-10 gange for at sende en enkelt mail.
Måske er det hver gang der afvikles en linie i koden der berører Outlook, der fremkalder advarslen.
Er der nogen mulighed for at omgå disse advarsler.
Det har indtil nu arbejdet uden dette problem i årevis, men der tilføjes løbende sikkerhedsopdateringer her i virksomheden, og det kan jo være en af disse der gør at problemet fremkommer nu.
Er der nogen der kender område så godt, at de evt. kan bekræfte at det er afviklingen af hver linie f.eks. "newmsg.Body" der fremtvinger advarslen.
Vil det kunne reduceres til at fremkomme når linien "newmsg.Send" afvikles?
så ville det kun fremkomme én gang for hver mail, og det ville være til at leve med.
