Envoyer par mail

Bonjour

Je débute, et j'ai un problème qui va peu être vous paraître simple.

ma formule enregistre mon fichier, le transforme en PDF et l'envoie par mail

je n'arrive pas à intégrer le contenu d'une cellule directement dans l'adresse du mail

je souhaite par exemple mettre une adresse mail en F3, et que cette adresse email apparaisse dans ma formule

voici la formule

merci

SendWithAtt()

' Nécessite la référence : Microsoft Outlook 1x Object Library

Dim olApp As Outlook.Application

Dim olMail As MailItem

Dim CurFile As String

Set olApp = New Outlook.Application

Set olMail = olApp.CreateItem(olMailItem)

' "C:\Users\J87337\Mesdocuments\BEVienne.pdf "

CurFile = ThisWorkbook.Path & "\" & "BeVienne.Pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CurFile, _

Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _

OpenAfterPublish:=False

With olMail

.To = "" je veux pouvoir intégrer le mail qui se trouve en cellule F3 comment faire ?

.CC = ""

.Subject = "Bon exécution Vienne véhicule : "

.Body = "Bonjour. Vous trouverez ci-joint un bon d'éxécution."

Application.Dialogs(xlDialogSaveAs).Show 'cette ligne permet l'Ouverture d'une fenêtre enregistrer sous mais en format excel!!!!!

.Attachments.Add CurFile

'.Attachments.Add "c:\My Documents\book.doc"

.Display '.Send

End With

MsgBox "Merci de vérifier que le message apparait dans -messages envoyés- dans votre messagerie OUTLOOK."

' Effacer les variables objets

Set olMail = Nothing

Set olApp = Nothing

End Sub

= range("F3").value

(mais de meilleurs développeurs vba que moi pourrons peut-être te répondre mieux)

super ça marche!!

BRAVO et MERCI

une derniere question

comment mettre 2 mails l'un en F3 et l'autre en F4

merci