verzenden via Groupwise en opslaan als

[bta]

Excellers,
Bij toeval kwam ik op onderstaande code om een bestand via Groupwise te laten versturen. Ik heb het uitgetest en het werkt zowaar.
Nu wil ik het opslaan aanpassen met de volgende gegevens:

bestandsnaam:
aanvraag-
+ inhoud cel G3- (= username)
+ inhoud cel J3 (=datum ddmmjj)

en dit moet worden opgeslagen op O:\.

Is dit mogelijk?
Bedankt weer voor de aandacht. Gr. Arie

Option Explicit 

 Sub Groupwise_Mail() 

   '© 2003 Alla rättigheter XL-Dennis 

   Dim objGroupWise As Object 

   Dim objAccount As Object 

   Dim objMessages As Object 

   Dim objMessage As Object 

   Dim objMailBox As Object 

   Dim objRecipients As Object 

   Dim objRecipient As Object 

   Dim objAttachment As Object 

   Dim objAttachments As Object 

   Dim objMessageSent As Variant 

   Dim Subject As String, Attachment As String, Recipient As String, Bodytext As String 

 

   On Error GoTo Errorhandling 

 

   'Här skapas e-postinnehållet. 

   Subject = "Test" 

   Attachment = ThisWorkbook.Path & "\Test.xls" 

   Recipient = "epost@mail.com" 

   Bodytext = "Enligt överenskommelse" 

 

   'Här ansluter vi till GroupWise och skapar själva e-postet. 

   Set objGroupWise = CreateObject("NovellGroupWareSession") 

   Set objAccount = objGroupWise.Login 

   Set objMailBox = objAccount.MailBox 

   Set objMessages = objMailBox.Messages 

   Set objMessage = objMessages.Add("GW.MESSAGE.MAIL", "Draft") 

   Set objRecipients = objMessage.Recipients 

   Set objRecipient = objRecipients.Add(Recipient) 

   Set objAttachments = objMessage.Attachments 

   Set objAttachment = objAttachments.Add(Attachment) 

 

   With objMessage 

      .Subject = Subject 

      .Bodytext = Bodytext 

   End With 

 

   Set objMessageSent = objMessage.Send 

 

ExitHere: 

   Set objGroupWise = Nothing 

   Set objAccount = Nothing 

   Set objMailBox = Nothing 

   Set objMessages = Nothing 

   Set objMessage = Nothing 

   Set objRecipients = Nothing 

   Set objAttachments = Nothing 

   Set objRecipient = Nothing 

   Set objAttachment = Nothing 

   Exit Sub 

 

Errorhandling: 

   MsgBox Err.Description & " " & Err.Number 

   Resume ExitHere 

End Sub

 

[tomkuijpers]

hey

je code leest nu dus echt niet ...
gebruik de tag

 voor je code dan leest het tenminste wat makkelijker...

selecteer je code en druk op de # in de balk zodat het een code word...
[CODE]code

Gr Tom

 

[arierood]

iemand enig idee?

 

[snb]

Deze macro doet exact hetzelfde.

Sub Groupwise_Mail() 
  With CreateObject("NovellGroupWareSession").Login.MailBox.Messages.Add("GW.MESSAGE.MAIL", "Draft") 
    .Recipients.Add "epost@mail.com"
    .Subject = "Test" 
    .Bodytext = "Enligt överenskommelse" 
    .Attachments.Add ThisWorkbook.Path & "\Test.xls"
    .Send
   End With 
End Sub

om je werkboek op te slaan:

activeworkbook.saveas "O:\aanvraag_" & application.username & format(date,"yyyymmdd")

 

[bta]

Is het ook mogelijk om de code van Groupwise zodanig aan te passen dat het opgeslagen bestand ook wordt verstuurd.

De code die snb voorstelde werkt ook, dus ergens in deze code:

Sub Groupwise_Mail()
  With CreateObject("NovellGroupWareSession").Login.MailBox.Messages.Add("GW.MESSAGE.MAIL", "Draft")
    .Recipients.Add "arierood@gmail.com"
    .Subject = "verlofaanvraag"
    .Bodytext = "verlofaanvraag"
    .Attachments.Add ThisWorkbook.Path & "\Test.xls"
    .Send
   End With
End Sub

Voor het opslaan gebruik ik de code:

Sub opslaan()
ActiveWorkbook.SaveAs "O:\verlofaanvraag_" & Application.UserName & Format(Date, "yyyymmdd")
End Sub

Kan een deskundige mij daarmee helpen???
Hartelijk dank. Gr. Arie

 

[snb]

Sub Groupwise_Mail()
  ActiveWorkbook.SaveAs "O:\verlofaanvraag_" & Application.UserName & Format(Date, "yyyymmdd")
  With CreateObject("NovellGroupWareSession").Login.MailBox.Messages.Add("GW.MESSAGE.MAIL", "Draft")
    .Recipients.Add "arierood@gmail.com"
    .Subject = "verlofaanvraag"
    .Bodytext = "verlofaanvraag"
    .Attachments.Add "O:\verlofaanvraag_" & Application.UserName & Format(Date, "yyyymmdd")
    .Send
   End With
End Sub

 

[bta]

Beste snb,
Ik waardeer alle hulp die geboden wordt en probeer dat ook altijd mee te geven in mijn mailtjes.
Het is echt niet zo dat ik me niet in VBA wil verdiepen en ben voor mijn gevoel al veel verder dan ik ooit ben geweest, maar voor iemand die absoluut geen beta-aanleg heeft, vind ik dat ik, met behulp van forum-leden, al veel verder ben gekomen dan ooit voor mogelijk gehouden. Om heel eerlijk te zijn, vind ik alles dat te maken heeft met excel en ook vba steeds leuker.
Ik heb in dit betreffende geval echt geprobeerd mijn vraag zelf te beantwoorden, maar volgens mij is dan, als het niet lukt, een forum als Helpmij.nl het aangewezen podium om vragen te stellen.
Voorheen maakte ik nog wel eens gebruik van worksheet.nl, maar vanwege soortgelijke reacties heb ik mijn heil elders gezocht en gevonden in dit forum, althans dat dacht ik tot vandaag.
Gr. Arie

Overigens krijg ik een nu foutmelding:
Automatiseringsfout
Er is een uitzondering opgetreden.