My macro don't insert the E-mail adress when I generate a mail.

[Roha1]

Hi.

Does anyone know why Excel won't insert anything in the recipient field?

When I use it on my computer it works, but when a collague of mine is trying it it won't.
We are using Excel 2016

Could it be something about acsess?

This code is only part of the whole thing, but everything else are working.
Code:


' Prepare e-mail
.Subject = "Siga Tilbud" & " " & [B13] & " " & WorksheetFunction.Text(Date, "dd.mm.yyyy")
.To = Range("B18") ' <-- Put email of the recipient here
.CC = " " ' <-- Put email of 'copy to' recipient here
.Body = "Hei" & " " & [B12] & "." & vbLf & vbLf _
& "Vedlagt ligger tilbud som avtalt, hvis det er noe spørsmål ta kontakt." & vbLf & vbLf & vbLf & vbLf & "Vennlig hilsen / Best regards" & vbLf & vbLf & [B23] & vbLf & "Produktrådgiver / Instruktør" & vbLf & vbLf & "+47" & " " & [N20]
.Attachments.Add PdfFile
Code:

 

[jmacleary]

Hi there
Try changing the line

.To = Range("B18") ' <-- Put email of the recipient here

to:
.To = Range("B18").Text ' <-- Put email of the recipient here

 

[Roha1]

Hi there
Try changing the line

.To = Range("B18") ' <-- Put email of the recipient here

to:
.To = Range("B18").Text ' <-- Put email of the recipient here

That did not make any different :/

 

[Fluff]

How about

.To = Sheets("[COLOR=#0000ff]Sheet1[/COLOR]").Range("B18")

Changing Sheet name to suit