Ingevulde Mail Dialog openen

Status
Niet open voor verdere reacties.
J

japdonk

Gebruiker
Lid geworden
26 jul 2012
Berichten
77
Goedemiddag,

Ik wil binnen een Excel macro de Excel file gaan verzenden.
Dat kan door de volgende code:

Application.Dialogs(xlDialogSendMail).Show

Echter zou ik willen dat een aantal velden al is ingevuld.

Aan:
onderwerp:
body:

Ik heb al wel het een en ander gevonden, maar daar kan ik eventueel geen extra's aan de mail toevoegen (een CC of extra info in de body). Die codes verzenden de mail in een keer.

Groet,
Jasper
 
Code: 
Public Sub Main()
    Dim strRecipient As String
    Dim strSubject As String
    Dim booReturnReceipt As Boolean
    strRecipient = "support@codevba.com; user@helpmij.nl"
    strSubject = "Latest data in attached file"
    booReturnReceipt = True
    Application.Dialogs(xlDialogSendMail).Show Arg1:=strRecipient, Arg2:=strSubject, Arg3:=booReturnReceipt
End Sub
bron: http://codevba.com/excel/dialogs.htm#SendMail
 
Goedemorgen,

Dit werkt. Echter krijg ik nu iedere keer nadat ik de macro heb laten lopen (hij doet overigens wel netjes alles) dat excel vastloopt.

Excel has stopped working.

Hij sluit vervolgens af en ik moet de file opnieuw openen.
 
Laatst bewerkt:
Na 2 jaar lid te zijn zou je toch al moeten weten dat je code tussen codetags moet plaatsen enerzijds om oogletsels bij de helpers te vermijden(doet pijn aan de ogen bij het lezen), anderzijds om misvormingen in de code te vermijden (zie smileys)
 
Ik heb het al weten op te lossen.
Hoe zet je de code tussen code tags? Dat heeft niemand ooit uitgelegd.......

Jasper
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan