waarde uit document in de subject van mail

[vrouw]

Hallo,

Is het mogelijk om de waarde uit cel A1 van het document in de subjectregel van een mail te krijgen?
Ik gebruik onderstaande code om te kunnen mailen(met server v/h werk) van het bestand.

Sub mail_verzenden()

Open "\\maillijst.txt" For Input As #1
  Do While Not EOF(1)
  Input #1, Read
  Mail = Mail & "," & Read
  Loop
  Debug.Print Mail
  Close #1
 
 
Set objMessage = CreateObject("CDO.Message")
    objMessage.FROM = """ bestand 2011 "" mailadres@xxx.nl"
    objMessage.To = Mail
   [B][COLOR="red"] objMessage.Subject = "==>> bestand week .....(hier de waarde uit cel A!) <<== "[/COLOR][/B]
    objMessage.TextBody = Replace("Beste Collega`s" & _
    "@@ " & _
    "@@ Hierbij een Update van het bestand." & _
    "@@ " & _
    "@@", "@", vbCrLf)
    
    
    objMessage.AddAttachment "C:\bestand.xls"
    
    objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "xxx.xx.nl"
    objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
                   
    objMessage.Configuration.Fields.update

    On Error Resume Next
    objMessage.Send
    If Err.Number = 0 Then
    CreateObject("WScript.Shell").Popup "De mail is verzonden naar alle adressen in maillijst", 2, "Ik sluit vanzelf na 2 Seconden heb dus geduld...."
      Else
        MsgBox ("Mail " & DCKortPrev & " Het bestand is NIET verzonden.")
    End If
    End Sub

 

[mcs51mc]

Iets in het genre

objMessage.Subject = "Titel mail :  " & ActiveSheet.Range("A1").Value

Mits de sheet waarvan je cel A1 wenst te gebruiken actief is natuurlijk.

 

[vrouw]

Top dat gaat goed:thumb:

Nu wil ik er nog een regel aan toevoegen maar dat lukt niet zo:

objMessage.TextBody = ("Beste Collega`s" & _
    "@@ " & _
    "@@ & ActiveSheet.Range("A1") &   " & _
    "@@ " & _
    "@@", "@", vbCrLf)

 

[mcs51mc]

Ik ken het formaat van "objMessage.TextBody" niet echt maar zo plak je verschillende regels aan elkaar...

Private Sub trial()
Dim strMyString As String

        strMyString = ("Beste Collega`s" & vbCrLf & vbCrLf & _
                       ActiveSheet.Range("A1").Value & vbCrLf & _
                       "Dit was mijn tekstje voor vandaag!" & vbCrLf)

        Debug.Print strMyString
End Sub

Het nut van al die apestaartjes ontgaat mij ook

 

[Warme bakkertje]

Kijk in VBA-help maar eens bij de Replace-functie, dan weet je direkt waar al die @ voor dienen.

 

[vrouw]

Dan zou het dus zo moeten?

objMessage.TextBody = [COLOR="red"]Replace[/COLOR] ("Beste Collega`s" & _
    "@@ " & _
    "@@ & ActiveSheet.Range("A1") &   " & _
    "@@ " & _
    "@@", "@", vbCrLf)

 

[Warme bakkertje]

Idd.

 

[vrouw]

Hmm, er komt toch nog een foutmelding op.lijkt op een haakje te weinig?

Foutmelding:
Compile error:
Expected: List separator or )

 

[Warme bakkertje]

Deze had je toch zelf kunnen vinden, nietwaar ?

objMessage.TextBody = Replace("Beste Collega`s" & _
    "@@ " & _
    "@@ " & ActiveSheet.Range("A1") & _
    "@@ " & _
    "@@", "@", vbCrLf)