Opgelost Onderwerp in e-mail

[gerrit123456789]

Goedemiddag,

Ik heb een macro in mijn bestand toegevoegd.
Deze is om een mail te verzenden.
Dit gaat goed, alleen er is iets wat mij niet lukt.
Dat is om bij "subject" de waarde van Cel A1 uit tabblad Transacties te krijgen.
Wie kan mij daarbij helpen.

Bij voorbaat dank

Gerrit

 

[SjonR]

zo?

Sub jec()
 With CreateObject("outlook.application").createitem(0)
   .to = "emailadres.com"
   .Subject = Blad1.Cells(1, 1).Value
   .body = "Hierbij het Transactieoverzicht inclusief Rendementsoverzicht"
   .attachments.Add ThisWorkbook.FullName
   .display '.send
 End With
End Sub

 

[gerrit123456789]

Werkt niet, ik krijg een foutmelding

 

[SjonR]

op welke regel en wat houdt de foutmelding in?

 

[gerrit123456789]

Ik heb hem er nog een keer opnieuw in gezet en nu werkt het wel.

Nogmaals bedankt.

Groet,

Gerrit

 

[SjonR]

top!

 

[djutoch]

Ik zou eerder deze gebruiken.

Sub jec()
 With CreateObject("outlook.application").createitem(0)
   .to = "emailadres.com"
   .Subject = Sheets("Transacties").[A1]
   .body = "Hierbij het Transactieoverzicht inclusief Rendementsoverzicht"
   .attachments.Add ThisWorkbook.FullName
   .display '.send
 End With
End Sub

 

[OctaFish]

Waarom 'eerder'? Jouw oplossing is toch niet makkelijker, sneller of beter?

 

[Aar]

Ik zou eerder deze gebruiken.

Sub jec()
 With CreateObject("outlook.application").createitem(0)
   .to = "emailadres.com"
   .Subject = Sheets("Transacties").[A1]
   .body = "Hierbij het Transactieoverzicht inclusief Rendementsoverzicht"
   .attachments.Add ThisWorkbook.FullName
   .display '.send
 End With
End Sub

Met welke argumenten zou je kiezen voor 'eerder'?

 

[SjonR]

@djutoch

De vragen van Aar en Octafish zijn begrijpelijk. Ik kies bewust voor de verwijzing naar Blad1 omdat dat een vaste waarde is. Als de naam van het tabblad wordt gewijzigd, is mijn code nog steeds werkend. Met jouw code niet.