Envoi de mail depuis Excel 2003 via Outlook 2003

[Sly le globe trotter]

Bonjour le forum,

Je cherche à envoyer un mail depuis Excel... Avec le code suivant, pas de souci mais je cherche à affiner le code puisque je ne connais pas systématiquement le destinataire. Je voudrais donc pouvoir créer le mail (objet, corps) mais l'envoyer manuellement après avoir saisi l'adresse mail directement dans le message...

Voici mon code

    Dim MonOutlook, MonMessage As Object
    Dim Corps As String
    
    Set MonOutlook = CreateObject("Outlook.Application")
    Set MonMessage = MonOutlook.createitem(0)
       
    MonMessage.to = ad 'ad est soit déterminé dans la macro ou  à saisir dans le champ adresse manuellement
    
    MonMessage.Subject = Mid(ActiveWorkbook.Name, 1, 17)
    
    Corps = "Bonjour," & Chr(13) & Chr(10)
    Corps = Corps & "La demande " & ActiveWorkbook.Name & " a été traitée."
    
    MonMessage.body = Corps
    
    MonMessage.Send
    
    Set Raccourci = Nothing
    Set MonOutlook = Nothing

 

[Creepy]

Re : Envoi de mail depuis Excel 2003 via Outlook 2003

Bonjour,

Si j'ai bien compris la question ci-dessous ton code modifié et optimisé.

Sub cc()
Dim MonOutlook As New Outlook.Application, MonMessage As Object
    
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
With MonMessage
    If ad <> "" Then .to = ad 'ad est soit déterminé dans la macro ou  à saisir dans le champ adresse manuellement
    .Subject = Mid(ActiveWorkbook.Name, 1, 17)
    .body = "Bonjour," & vbCrLf & "La demande " & ActiveWorkbook.Name & " a été traitée."
    If ad <> "" Then ' si destinataire deja renseigné
        .Send ' send
    Else ' sinon
        .Display ' on affiche juste le message
    End If
End With
Set MonMessage = Nothing
Set MonOutlook = Nothing
End Sub

A+

Creepy

 

[Sly le globe trotter]

Re : Envoi de mail depuis Excel 2003 via Outlook 2003

Super, merci !!!!