CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

Tor4Every1 Juniormester

19. marts 2021 - 07:27 Der er 5 kommentarer og
1 løsning

VBA - Bold i mail..

Hej Alle,

jeg har excel ark hvor jeg sender en mail via outlook, inden i den tekst jeg skriver som standart tekst til min mail, vil jeg gerne have en del af teksten B. men det som skal være B er fra ThisWorkbook.Sheets.Range("E11")

Har prøvet med med denne, den virker når det bare er tekst. men hvordan får jeg den til at virke når det er range.

" ThisWorkbook.Sheets("aktør - Liste").Range("E11") 

på forhånd tak,,

Tor4Every1

Synes godt om

ebea Ekspert

19. marts 2021 - 08:11 #1

Hvis du vil have Fed skrift i din Outlook mail sending, skal du definere HTML koder for den tekst som du vil sende i Fed.
At sætte som kode for Fed, er ikke nok, da Outlook ikke sender HTML defineret tekst, med mindre du angiver det.

Synes godt om

Tor4Every1 Juniormester

19. marts 2021 - 08:52 #2

With objOutMail

'SET THE EMAIL CONDITIONS
.To = ThisWorkbook.Sheets("Beregning").Range("E1").Value & "@miltonhuse.dk"
.CC = ThisWorkbook.Sheets("Beregning").Range("R14").Value
.BCC = ""
.Subject = "Ekstra funderingsberegning - " & ThisWorkbook.Sheets("Beregning").Range("B1").Value

'ADD ATTACHMENTS
'.Attachments.Add ("C:\Users\FormatCells\Documents\MyTestDoc.txt")
.attachments.Add "C:\Users\MEN\Desktop\Tømrer_PDF.pdf"
'ThisWorkbook.Path & "\" & ThisWorkbook.Name

'IF SENT FROM ANOTHER EMAIL ACCOUNT (MUST ALREADY BE SETUP)
'.SentOnBehalfOfName = "AnotherAccount@FormatCells.com"

'CHECK NAMES, ENSURES INTERNAL EMAIL ADDRESSES EXISTS IN ADDRESS BOOK
.Recipients.ResolveAll

'DO NOT REMOVE - THIS MUST BE VISIBLE FIRST TO GET THE DEFAULT SIGNATURE
.Display

'GET THE HTML CODE FROM THE SIGNATURE
strSig = .Htmlbody

'WHAT SHOULD THE EMAIL SAY, ON TOP OF THE SIGNATURE
'HTML TAGS CAN BE INCLUDED HERE
strBody = "<BODY style=font-size:11pt;font-family:Calibri> Hej " & Fornavn & "Hermed ekstra funderingsberegning på ovennævnte sag." & ThisWorkbook.Sheets("Beregning").Range("R11").Value _
& "Note: Hvis der tidligere er skrevet under på et ekstrafunderingstilbud, skal bygherre ikke underskrive det nye tilbud. Byggerådgiver skal i stedet lave en allonge med differencen af de to tilbud og evt. præcisere den nye sokkelkote, hvis den er blevet ændret."

'COMBINE THE EMAIL WITH THE SIGNATURE
.Htmlbody = strBody & strSig

'IF YOU DO NOT HAVE HTML IN THE BODY, USE THIS INSTEAD
'.Body = strBody & strSig

'AUTOMATICALLY SEND EMAIL (IT WILL STILL BRIEFLY POPUP)
'.Send

End With

On Error GoTo 0
Set objOutMail = Nothing
Set objOutApp = Nothing

End Sub

Synes godt om

ebea Ekspert

19. marts 2021 - 09:09 #3

#2 - Hvad har dit indlæg i #2, med dit åbnings spørgsmål at gøre?

Synes godt om

Tor4Every1 Juniormester

19. marts 2021 - 09:35 #4

Det er koden til det hele.. der er også skrevet som NOTE: det virkede fint.
Men når jeg skal skrive en celleværdi så kan man ikke bruge

Synes godt om

ebea Ekspert

19. marts 2021 - 10:06 #5

#4 - Jeg kan ikke rigtig helt se sammenhængen. Fordi i dit indlæg i #2 har du jo netop defineret HTML koder (skrift typer, og Bold), og også indsat en celle reference til brug.
Og hvor er resten af koden til din mail sending?

Synes godt om

ebea Ekspert

19. marts 2021 - 11:26 #6

Prøv at se om det er sådan du tænker. Jeg har reduceret din kode, lidt.

Sub sendmail()
Dim strSig As String
Dim strBody As String
With objOutMail

'SET THE EMAIL CONDITIONS
Set OutlApp = CreateObject("Outlook.Application")
With OutlApp.CreateItem(0)
Title = "To " & ActiveSheet.Range("E1").Value & "@miltonhuse.dk"
.BCC = ""
.Subject = "Ekstra funderingsberegning - " & ThisWorkbook.Sheets("Beregning").Range("B1").Value

.Recipients.ResolveAll

.Display
strSig = .Htmlbody

'HTML TAGS CAN BE INCLUDED HERE
strBody = "<BODY style=font-size:11pt;font-family:Calibri> Hej " & Fornavn & "Hermed ekstra funderingsberegning på ovennævnte sag." & ThisWorkbook.Sheets("Ark1").Range("R11").Value _
& "Note: Hvis der tidligere er skrevet under på et ekstra funderingstilbud, skal bygherre ikke underskrive det nye tilbud. Byggerådgiver skal i stedet lave en allonge med differencen af de to tilbud og evt. præcisere den nye sokkelkote, hvis den er blevet ændret." _
& "<BODY style=font-size:11pt;font-family:Calibri;Font:Bold> " & ThisWorkbook.Sheets("aktør - Liste").Range("E11").Value

.Htmlbody = strBody & strSig

'.Send

End With

On Error GoTo 0
Set objOutMail = Nothing
Set objOutApp = Nothing
End With
End Sub

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Træk dato og måned ud af celle Af Klaus W i Excel	4	I går 13:46	I går 17:10
Nul efter forreste tal Af Marting i Excel	1	02/05/202421:50	02/05/202422:46
Fjerne tomme celler i kolonne Af torben lind i Excel	4	02/05/202419:15	02/05/202420:28
Markere dubletter ud fra reference felt. Af jthyge i Excel	9	02/05/202408:46	03/05/202411:58
Flytte indhold fra en celle til en anden Af torben lind i Excel	8	01/05/202414:34	02/05/202410:46

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS

03/05

Test: Vi vil altså virkeligt gerne beholde HP's nye pc - men den koster 360.000 kroner

03/05

Socialdemokratiet vil give massiv offentlig støtte til europæiske AI-virksomheder

03/05

Apple køber egne aktier tilbage for mere end 763 milliarder kroner: Største tilbagekøb nogensinde

03/05

Nørgaard: Jeg kunne have været ejer af KMD, hvis ikke nogle pengedrenge havde kontaktet KMD's chefer

03/05

Interne mails afslører: Derfor besluttede Microsoft at investere milliarder i OpenAI i 2019

03/05

Jakob Høholdt fratræder som CEO for Sentia: Indsætter ny topchef fra Aeven

03/05

Topchef: En tredjedel af alle amerikanernes sundhedsdata flyder på dark web

03/05

Skal du have et nyt job før sommerferien - så bør du tjekke en af disse 10 stillinger

03/05

Åbner for en af Danmarks største it-konsulentaftaler til 2,3 milliarder kroner

03/05

Netcompany har ansat 144 nye medarbejdere siden nytår: "Vi har fået travlt i Danmark," siger en godt tilfreds André Rogaczewski

03/05

Regeringen på trapperne med løsning på omstridt Chromebook-sag: Her kommer svarene

Vis flere artikler

IT-JOB

DSV

IT Specialist and Consultant for SAP S/4HANA

Styrelsen For It og Læring

Erfaren softwareudvikler til Styrelsen for It og Læring – vær med til at skabe forretningskritiske it-systemer til test, prøver og eksamen

SDC A/S

SDC søger en Solution Architect til styrke fremtidens finansielle løsninger

Timengo

Product and Documentation Specialist

PJM A/S

Automations specialist til specialfremstillede maskiner

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I går 20:16	Ai genererede billeder Af Anja de Thurah i Fri debat
I går 20:02	Prosonic tv Af Slettet bruger i Fjernsyn & projektorer
I går 16:05	HIKvision Harddisk og kameraer kan ikke findes på nyt Fibernet Af Computerwolrd! i Wifi
I går 13:46	Træk dato og måned ud af celle Af Klaus W i Excel
I går 00:07	USB styret telæ Af Olsen i Småopgaver