• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Samenvoegen veld + file bestand

Status
Niet open voor verdere reacties.
H

HJ1

Gebruiker
Lid geworden
3 sep 2021
Berichten
73
Ik heb knop gemaakt waar een mailtje opgesteld wordt met tekst maar nu moet er een link naar een bestand aan toegevoegd worden.
Wanneer je op die link klikt moet het bestand direct geopend worden.


De inhoud van de mail tekst moet uit meerdere cellen opgehaald worden.
1) vaste tekst
2) Link naar een bestand op een locatie, wanneer je daar op klikt moet het bestand geopend worden
De bestandslocatie + bestandsnaam is variabel en heb ze nu ook samengevoegd in één veld.
Zie in bijlage GEEL

Nog fijner zou zijn dat de link in het bericht opgenomen kan worden, zie in bijlage GROEN.
 

Bijlagen

  • Mail - velden samenvoegen met file ophalen.xlsm
    16,2 KB · Weergaven: 10
Je kan natuurlijk het bestand ook meesturen in de mail.
Code: 
Sub Macro1()
  With CreateObject("Outlook.Application").CreateItem(0)
     strBody = "<font size=""3"" face=""Calibri"">" & _
                  "Colleagues,<br><br>" & Range("C27") & _
                  "I want to inform you that the next sales Order :<br><B>" & _
                  ThisWorkbook.Name & "</B> is created.<br><br>Regards," & _
                  "<br><br>Account Management</font>"
        .To = ""
        .CC = ""
        .BCC = ""
        .HTMLBody = strBody & "<HTML><BODY>Click on this link to open the file:<a href=""" & Range("B5").Value & """>" & ThisWorkbook.Name & "</a></BODY></HTML>"
    
        '.Attachments.Add thisWorkbook.FullName
        .display   'or use .Display or .Send (send is automatisch verzenden naar TO:"
    End With
End Sub
 
Ja klopt maar dat is juist wat we niet willen, vandaar de wens om met een link direct het bestand op een locatie te openen.

Dat stukje macro had ik inderdaad ook gevonden maar dat is met een stukje tekst die je in de macro zelf definieert.
Ik heb een variabele aan teksten die ook best wel lang zijn en met variabelen, wanneer ik die nu zou oppakken wordt alles hard achterelkaar zet (helaas is dat ook niet wenselijk)
 
Heb je de code niet getest?
 
Ik heb je code getest maar dan zie ik de tekst in B1 (het gele deel) niet terug in de mail, alleen de vaste tekst zoals in de macro.

HTML: 
Geachte heer/mevrouw,

De onderstaande actie helpt u op een praktische wijze. 
1. actie 1 
2. actie 2
3. actie 3
4. actie 4
5. actie 5

KLIK HIER VOOR HET OPENEN VAN HET BESTAND ( na openen wordt het bestand dan geopend |  C:\afdeling\2022\december-07.xlsm)

Hier komt nog een hele tekst te staan.
Hartelijk dank voor de medewerking.

Met vriendelijke groet, 
Naam
Tel
 
Ik dacht dat het alleen om de hyperlink ging.

Code: 
Sub Macro1()
  With CreateObject("Outlook.Application").CreateItem(0)
     strBody =[COLOR=#ff0000] Join(Split(Range("b1"), vbLf), "<br><br>") &[/COLOR] "<font size=""3"" face=""Calibri"">" & _
                  "Colleagues,<br><br>" & Range("C27") & _
                  "I want to inform you that the next sales Order :<br><B>" & _
                  ThisWorkbook.Name & "</B> is created.<br><br>Regards," & _
                  "<br><br>Account Management</font>"
        .To = ""
        .CC = ""
        .BCC = ""
        .HTMLBody = strBody & "<HTML><BODY>Click on this link to open the file:<a href=""" & Range("B5").Value & """>" & ThisWorkbook.Name & "</a></BODY></HTML>"
    
        '.Attachments.Add thisWorkbook.FullName
        .display   'or use .Display or .Send (send is automatisch verzenden naar TO:"
    End With
End Sub
 
Laatst bewerkt:
Dit ziet er wel erg goed uit HSV! Ik ga hem verder finetunen.
Thanks!!! :thumb:
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan