macro mailen aanpassen dat de ontvanger ander mail adres ziet

[davylenders123]

We hebben al een paar jaar een macro gemaakt die in excel door op een button te klikken automatiche opslaat en doormailt
Dit via lotus notus

Nu zijn we echter van naam verander en mag het oude mail adres waar lotus mee werkt niet meer zichtbaar mee verstuurd worden
Hier zou een ander adres zichtbaar moeten zijn bij de ontvanger
Lotus blijven we behouden met het oude mail adres en we krijgen een ander mail adres dat ook helemaalvia een ander weg werkt en niet met lotus notus maar met outlouk
Ik zou natuurlijk al de bestanden kunnen aanpassen met de code voor outlook maar dit is bijna onbegonnen werk (hebben zo een 20 bestanden in gebruik die allemaal wel iets anders moeten doen buiten het mailen en dus de codes allemaal wat verschillen

Ik ben nu eigenlijk opzoek mogelijk is om in de macro een regel erbij te zetten die het mail adres van de afzender kan wijzigen in een ander zodat ontvanger niet het adres ziet waarhet mee verstuurd is

De bestanden worden door verschillende mensen gebruikt dus en vast mail adres kunnen we niet nemen
Zou het mogelijk zijn om het domain achter het @ te wijzigen bij versturen mail
bv nu @hotmail.com
Dan @gmail.com

Ik weet helemaal niet of het mogelijk is maar kan maar eens horen he zou mee een hele hoop werk kunnen besparen.

Hier de code die mailt en opslaat die we nu gebruiken.

Const EMBED_ATTACHMENT As Long = 1454
Const vaCopyTo As Variant = "" 'copy mailen naar: "adres"

Sub mail()


 Dim vaRecipients As Variant
  Dim noSession As Object
  Dim noDatabase As Object
  Dim noDocument As Object
  Dim noEmbedObject As Object
  Dim noAttachment As Object

If [invulblad!F1] = "" Then MsgBox "Je hebt geen week nummer ingevuld in cel F1 !": Exit Sub
Sheets("interim").Select
If vbNo = MsgBox("Ben je wel zeker dat je die mail wil verzenden", vbYesNo) Then Exit Sub
If vbNo = MsgBox("Heb je lotus notus open staan?", vbYesNo) Then Exit Sub


ActiveWorkbook.SaveAs Filename:=("S:\86\Mag-Data\Mit pc\davy\planning randstad\planning al door gemaild" & "\randstad Planning  Week " & Sheets("invulblad").Cells(1, 6).Value & " Doorgestuurd op " & Format(Now, "dd-mm-yyyy hh" & "u " & "mm") & ".xls")
stpath = "S:\86\Mag-Data\Mit pc\davy\planning randstad\planning al door gemaild" 'locactie waar bijlage staat
stsubject = "randstad Planning  Week " & Sheets("invulblad").Cells(1, 6).Value & " Doorgestuurd op  " & Format(Now, "dd-mm-yyyy hh" & "u " & "mm") & ".xls" _

vamsg = "Goedemorgen, " & vbCrLf & vbCrLf & vbCrLf & vbCrLf & _
      "Met Vriendelijke Groeten" & vbCrLf & vbCrLf & _
      "De Hoofdmagazijniers"


'mailbody voorzien van gegevens
stfilename = "Dagstaat Magazijniers .xls" 'Bestandsnaam
stattachment = ("S:\86\Mag-Data\Mit pc\davy\planning randstad\planning al door gemaild" & "\randstad Planning  Turnhout Week " & Sheets("invulblad").Cells(1, 6).Value & " Doorgestuurd op " & Format(Now, "dd-mm-yyyy hh" & "u " & "mm") & ".xls")
vaRecipients = VBA.Array("test2@test.be", "test1@test.be") 'mailadressen("eerste ontvanger" , "tweede ontvanger", enz.)

                  'Bepaal de Lotus Notes COM's Objecten.
                  Set noSession = CreateObject("Notes.NotesSession")
                  Set noDatabase = noSession.GETDATABASE("", "")
                  
                  'Als Lotus Notes niet open is open dan het mail-gedeelte ervan.
                  If noDatabase.IsOpen = False Then noDatabase.OPENMAIL
                 
                  'Maak de e-mail en de bijlage.
                  Set noDocument = noDatabase.CreateDocument
                  Set noAttachment = noDocument.CreateRichTextItem("stAttachment")
                  Set noEmbedObject = noAttachment.EmbedObject(EMBED_ATTACHMENT, "", stattachment)
                                 
                  'Voeg de gegevens toe aan de gemaakte e-mail eigenschappen.
                  With noDocument
                    .Form = "Memo"
                    .SendTo = vaRecipients
                    .CopyTo = vaCopyTo
                    .Subject = stsubject
                    .Body = vamsg
                    .SaveMessageOnSend = True
                    .PostedDate = Now()
                   .Send 0, vaRecipients
                  End With
                 
                          
                  'Verwijder objecten uit het geheugen.
                  Set noEmbedObject = Nothing
                  Set noAttachment = Nothing
                  Set noDocument = Nothing
                  Set noDatabase = Nothing
                  Set noSession = Nothing
                  
                  MsgBox "De e - mail is correct verstuurd ", vbInformation



End Sub

 

[davylenders123]

Niemand een oplossing voor dit probleem

 

[huijb]

Het opnieuw onder de aandacht brengen van je vraag mag, maar niet binnen 24 uur. Hou er rekening mee dat het forum met en door vrijwilligers wordt gerund.