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

Excel kurser

Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Automatisk give specifikke point udfra placering Af jernrosen3 i Excel	5	19/12/202410:24	I går 13:14
Delvis udfyld en celle, baseret på en %-sats fra anden celle Af Brian Nielsen i Excel	2	16/12/202415:27	17/12/202422:03
Hjælp til formatering af excel ark. Af Nicholas i Excel	23	13/12/202412:32	18/12/202415:44
To x-akser men kun ét datasæt? Af TheLibrarian i Excel	1	10/12/202409:17	10/12/202410:35
Isolere en dato i tekst/tal Af jernrosen3 i Excel	7	09/12/202408:59	09/12/202410:38

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